



CONCURENCE 



DESCRIPTIF 



CARTE D'IDENTITE 

Mémorise la "carte d'identité" de l'entreprise? 
(Nom, Raison Sociale, Date de création, etc.):' 



LES TAUX 

Les taux de cotisations patronales et salariales 9 
sont tournis suivant la dernière législation et 
sont entièrement modifiables. 



LES UTILITAIRES 

1. GESTION DU FICHIER PERSONNEL 

Les informations concernant chaque salarié 
sont mémorisées sur une fiche signalétique 
unique. C/PAYE peut gérer jusqu'à 30 salariés. I 

2. CARNET D'ADRESSES 

L'utilisateur dispose à tout moment d'un camei I 
d'adresses utiles à l'établissement de la ficfte | 
de paye et des déclarations aux organismes 
sociaux. 



LE BULLETIN DE PAYE 

1. LE BULLETIN DE PAYE 

Il permet création, édition impression et 
suppression du bulletin de paye. Les bulletins 
sont modifiables à tout moment, donnant 
à C/PAYE la faculté de s'adapter à tout type 
d'entreprise. L'utilisateur peut donc refaire 
plusieurs fois le même bulletin de paye 
avant sa validation définitive. 

2. COMPTABILITE 

C/PAYE édite automatiquement le livre de paye 
à n'importe quel moment au choix de l'utili- 
sateur. C/PAYE édite automatiquement un 
récapitulatif-entreprise indiquant l'imputation 
comptable des divers éléments pour le mois 
et en cumul. C/PAYE édite automatiquement 
un bordereau de virement des salaires. j 

C/PAYE gère les congés payés 

3. FISCALITE 

Une aide à l'établissement des déclarations ]. 
fiscales est proposée, sous forme d'un état '- 
reprenant l'essentiel des éléments d'une DAOS. 

C/PAYE protège l'utilisateu* de toute erreur 
de manipulation en autorsarit l'utilisation de 
certaines touches du ciav-er ur-'quement. 
C/PAYE tient compte des dernières modifi- 
cations législatives en particulier «n ce qui 
concerne l'embauche des |eunes. 
Enfin, de par l'utilisation des menus déroulants. 
C/PAYE est utilisable par tous, après quelques 
minutes d'utilisation seulement 
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Loriciels fait revivre 




vos mi<* oS - 

One nouvelle génération de softs 
à tout fracasser H! 




BOB WINNER 

Globe-trotter à la recherche d'une civili- 
sation disparue, tu parcours le monde 
malgré les nombreux obstacles qui se 
dressent sur ton chemin. De grandes 
puissances t'enverront leurs combat- 
tants pour te stopper dans ta quête. La 
force seule ne suffira pas et tu devras 
faire preuve d'intelligence et d'astuce 
pour découvrir enfin ce que tu as tant 
cherché. 





LE PACTE 

En l'an 1 580 de notre ère, la Grande 
Alliance des forces du bien permit un 
Pacte sans précédent avec la nuit, 
le mal et les démons. 
Depuis 3 siècles déjà, les puissan- 
ces diaboliques reposent en un 
coffret, sépulture inviolée les rete- 
nant prisonnières à jamais. TOI 
MORTEL, tu ne dois jamais l'ou- 
vrir sous peine d'avoir à les 
combattre. 



BACTRON 

Bactron, ennemi 
des virus se bal- 
lade dans ton corps 
depuis ta naissance 
Maisaujourd'huiceux- 
ci risquent d'avoir le 
dessus et tu dois aider 
Bactron à les vaincre. 
Guide-le dans le dédale 
de tes organes et libérez 
ensemble les enzymes de 
guérison enfermés dans les 
cubes jaunes disséminés à 
travers ton corps. 



IbtTcfels* 

81, rue de la Procession 
92500 RUEIL MALMAISON 
Tél. : (1) 47 52 1133-Tôlex :631748 F 



Distribution ; LORIDIF 

Tél. : 47 52 1 8 1 8 - Télex : 631 748 F 



MGT 

Un superbe jeu d'arca- 
de et d'aventure qui t'en- 
traînera dans l'antre d'un 
énorme complexe spatial. 
Là, tu rencontreras l'in- 
connu, et à bord de ton 
MagnetikTank, tu devras 
combattre pour survivre 
et tenter d'en ressortir 
vivant. 



Je désire recevoir LORICIELS 
NEWS, le journal d'information 
sur vos produits. 
Nom 




Prénom Age 

Adresse 

Ville C.P 

Votre matériel 

Joindre 3 timbres à 2.20 F pour participation aux frais d'expédition 
Avez-vous un Minitel ? ' FOuTI INUR1 
' Cochez la case correspondante. 
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JE DÉBUTE EN BASIC AMSTRAD 

C. Delannoy. 1S2 pures. 

Réf. El giF 

Ce livre est écrit dans un langage béa simple. La 
démarche eat progresaive, chaque notion est pré- 
sentée sur un exemple aimple accompagnée de 
nombreux exercices. L'auteur nous familiarise avec 
les erreurs possibles. 

PROGRAMMATION SUR AMSTRAD 

PCW 8256/8S12. Baale *t fichier.. 
P. Blhan. IS4 pages. 

■" 149P 

t-et ouvrage eat écrit selon une progression éprou- 
vée en cours. 

n est destiné Â intéresser le débutant puisque conçu 
dans un souci didactique, en aupposant la program- 
mation inconnue, et en môme temps susceptible 
d'intéresser le programmeur confirmé avec l'impor- 
tant chapitre réservé aux fichiers. En effet, le lan- 
gage Basic de l'AMSTRAD PCW 8236/8512 utilise 
JETSAM. 

Le livre est divisé en neuf chapitres qui se terminent 
tous par une série d'exercices dont la solution est 
toujours commentée et expliquée. 

MULTIPLAN SUR AMSTRAD 

C. Dslannoy. 280 pages. 

WB3 ,*7 195F 

Ce livre a été écrit pour vous ! a va voua permettre 
de "piloter" parfaitement ce logiciel et vous donner 
ainsi les moyens de réaliser facilement et en toute 
sécurité des tableaux "sur mesure". 
Chaque notion vous est présentée sur un exemple 
simple. Vous êtes ensuite guidé pas à pas dans une 
expérimentation qui vous en fait explorer les multi- 
ples facettes. 

La plupart des chapitres sont suivisd'un récapitulatif 
de 'ce que vous devez savoir" ; vous êtes ainsi en 
mesure de contrôler votre progression. 



PROGRAMMES DE PHYSIQUE SUR 
AMSTRAD 

P. Beauflls, M. Lanwrch*. Y. Muygimti. 
192 pages. * 

■*»■» 150F 

Les auteurs, professeurs de lycée, ont voulu libérer 
des longs calculs et des formules "bombardées" 
afin de vous permettre une nouvelle approche de la 
physique. 

Vous trouverez dans ce livre 28 programmes corres- 
pondant à l'enseignement de la physique en classes 
de terminale des lycées. Os traitent de la mécanique 
de 1 électricité, de la thermcdynamique, de l'optique 
et de la chimie. 



PROGRAMMES DE MATHÉMA- 
TIQUES SUR AMSTRAD 

P^atwm., M. buaueh., Y. Muggtaira. 

192 pages. ~* 

««.ES 150r 

Voici des programmes de mathématiques écrits en 
BASIC du niveau d'une classe de terminale de lycée 
Accompagnés de leurs commentaires, ils transfor- 
ment rordinateur en un outil pédagogique de valeur 
et un instrument de calcul puissant pour résoudre 
Pien des problèmes. 

En second plan, les auteurs ont voulu montrer que 
les mathématiques ne sont pas mortes avec l'usage 
delordirateur.bienaucOTtraireil'écritured'uiipro- 
gramme comme la critique des résultats nécessite 
des connaissances solides et variées. 

CALCUL NUMERIQUE SUR 
AMSTRAD 

M. Rousselet. 168 nacres 

»'E6 '".. ls(|r 

Les règles a calcul, le, tables de racines carrées ou 
de logarithmes ont fait leur temps 
Cet ouvrage met à la portée de tous de nombreux 
outils de calcul. Le, principaux domaines du calcul 
numérique sont abordés : résolution des équations et 
des systèmes, intégrations, statistiques et probabili- 
tés, calculs différenciela, etc.. 

FAITES VOS JEUX AVEC AMSTRAD 

C. Delannoy. 200 pages. 

«"■E7 r7. 110F 

Ce livre vous propose un éventail de Jeux exploitant 
5 .SL, te ~ P? 8 *" 111 "** graphiques et sonores 
des AMSTRAD CPC 464, CPC664 et CPC6128 
Son rôle ne se limite cependant pas à celui d'un 
sunple recueil de programmes. Toutd'abord. il vous 
offre la possibilité d'adapter chacun d'entre eux en 
fonction de vos goûts et de vos déairs, et cela sans 
même que vous ayea besoin de connaître lé Basic 
(.estdans ce but que chaque jeu est accompagné do 
nombreuses suggestions de personnalisation gui 
vous sont expliquées dans le moindre détail. 

PREMIERS PROGRAMMES 

Rodnay Zaka. 248 pages. 

«•'■51 * 1Mr 

Comportant de nombreux diagrammes et illustra- 
tions en couleur, ce livre vous enseigne les bases de 
la programmation en BASIC sur Amstrad. Aucune 
expérience préalable de la programmation n'est 
nécessaire. 

AMSTRAD 56 PROGRAMMES 

8.K. Trost. 160 pages 

«ef.52 j, F 

Ce livre vous propose 86 programmes prêts à l'em- 
ploi dans de nombreux domaines d'application per- 
sonnels et professionnels: finances personnelles 
gestion, immobilier, analyse de données, éducation 



GUIDE DU GRAPHISME 

J. Wlnford. 208 pages. 

«•'•S4 1Mp 

Cet ouvrage présente toutes les techniques indis- 
pensables pour voua permettre de réaliser de façon 
simple et rapide des programmes graphiques (ges- 
tion des couleurs, utilisation des différents modes 
vidéo, tracé de courbes, réalisation de graphiques 

GRAPHISME EN 3 DIMENSIONS 
T. Lachand-Rebert. 240 pages 

««■55 _"... 14ep 

Vous pourrez, grâce à ce livre, représenter des 
polyèdres, des surfaces, voire dés objets plus com- 
plexes en trois dimensions sur l'écran de votre ordi- 
nateur. Les faire pivoter pour les observer sur tous 
les angles... etc. 



JEUX D'ACTION 

P. Monsaut. 96 pages. 
Réf. SI 



TECHNIQUES DE PROGRAMMA- 
TION 
ET JEUX EN ASSEMBLEUR 

G. Fagot-Barraly. 176 pagea. 

«éf.53 ™ ggf. 

Cet ouvrage contient des programmesde jeux écrits 
pour les ordinateurs Amstrad CPC 464, 664 et 6 1 28. 
Chaque programme est accompagné d'une analyse 
pédagogique de la structure des phases essentielles 
et de tableaux résumant la fonction et les valeurs 
possibles des principales variables. 



1 8 jeux d'action en BASIC pour votre Amstrad ': tank 
trace, D.C.A., blita, squash. alphabet, numérix, atter- 
rissage, etc. 

PROGRAMMER EN dBfiSE III 
ET III PLUS 

Par René Cohen. 288 pages 

Réf.P4 * ™, , , 85r 

L'auteur s'adresse aux débutants complets 
qui vont bâtir une application complète de 
gestion de fichiers clients, de stocks ou de 
facturation. Tous les programmes dBASE 
sont largement commentés pour vous per 
mettre de les modifier ou de les adapter à 

dBASE ET SES FICHIERS - III 
ET m PLUS 

par Jacques Boiagontier. 240 pages, 
«er. PI .__ „ 

7n£& m S c ° n l rnandes et ] es fonctions de 
dBASE III sont décrites et illustrées dans ce 
livre par un exemple concret. 

I.A. SUR AMSTRAD CPC : 
LANGAGE ET FORMES 

Par Thierry et Eric Lévy-Abégnoli 
176 pages. 

Réf. |g g p 

Ce livre concerne deux notions bien préci- 
ses de l'Intelligence Artificielle : le langaqe 
naturel et la reconnaissance de formes 
Le langage naturel : le programmeur fait en 
sorte que l'ordinateur comprenne notre lan- 
gage, et qu'il parle à son tour en lanaaae 
naturel. " a 

La reconnaissance de formes : l'ordinateur 
reconnaît une forme par rapport à une autre 
(un carre par rapport à un ballon) et fait des 
comparaisons entre les formes qui lui sont 
présentées. 

GESTION SUR AMSTRAD PCW 

Par Jean-Michel Jego et Alain Gargaden- 
nec. 240 pages. s *" 

Réf. P2 1I5 F 

Ce livre permet de découvrir progressive- 
ment les trois logiciels complémentaires les 
plus utilises sur Amstrad PCW et CPC 6128 ■ 
LocoScnpt (traitement de texte), dBASE II 
(base de donnée) et Multiplan (tableur) 
grâce aux modèles et tableaux proposés 
dans ce livre. 



BON DE COMMANDE 

A renvoyez avec votre règlement à STAMP DIFFUSION 
27, Bd de la Fraternité - 44100 NANTES. 

Frais de port en sus: 23F 

(gratuit pour toute commande supérieure à 300 F) 

Ci-joint mon règlement par chèque ou mandat 
Nom 



CPC 17 
Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 



Réf. 
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Qu'avez- vous commandé au Père-Noël ? Un PC 1512 ? Une imprimante pour sortir 
vos listings ? Un drive parce que vous en avez assez des cassettes ? Un simple logi- 
ciel de jeu, car vous n'êtes pas exigeant ? Quelque soit votre désir, nous souhaitons 
qu'il soit réalisé et que vous continuerez à passer d'agréables moments en compa- 
gnie de votre AMSTRAD... et de CPC ! 
A tous. Joyeux Noël. 

La Rédaction 




«il 



Le courrier des lecteurs 

Actualité 8 

Transparence, Tag 
La vitrine du logiciel 10 et inversion vidéo 



Amstrad Expo 14 Effets 

Trajectoires des planètes 14 Crazy V3.0 

Vu en Angleterre 22 Test de produits pour PCW . 

Initiation à CP/M 23 Le Basic Mallard 

Europa 26 Music Tutor au banc d'essai 



Résultats du concours 

Catégorie : utilitaires 63 

Triangle de Pascal 64 

Solitaire 67 

Calculette 

Les turbo fractais 83 

. 62 

Fendisc 86 

38 Ultimate Fight 90 

42 Branchez le turbo 102 

44 VT-Link au banc d'essai 108 

56 La vitrine du libraire 110 

59 Sondage mensuel 111 

62 Petites annonces 112 
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Les articles et programmes Que nous publions dans 
ce numéro bénéficient pour une grande part du droit 
d'auteur De ce fait, ils ne peuvent être reproduits, 
imités, contrefaits, même partiellement, sans l'au- 
torisation écrite de la Société SORACOM et de l'au- 
teur concerné Les différents montages présentés 
ne peuvent être réalisés Que dans un but privé ou 
scientifique mais non commercial. Ces réserves con- 
cernent les logiciels publiés dans la revue 




Vos idées se 

sentent-elles 

à l'étroit 

sur 

votre 

CPC 6128 

avec les 

programmes 

de confection ? 



f f r e z - 1 e u i 1 a 1 l b e r "t i 

e~b 1 'espace avec les 
progiciels "su r m e s u r e ' 
d e S é m a p h o r e . . 



Le traitement Je texte U base données relationelle Le tableur puissant et rapide 

Tous trois utilisent TOUTE la léioire de votre 6125 et sont aussi utilisables sur les 
464 (avec 151) et 664 lunis de l'extension de léioire X AH 64Ko ou 256Ko IK' Ironies. 
Ces programmes ont été maintes fois décrits dans ces pages mais nous tenons à votre dis- 
position leurs descriptifs complets. Les revendeurs spécialistes AMSTRAD se feront un 
plaisir de vous les présenter. Sémaphore vous propose TASPRINT (c'est lui qui est au 
travail ici), TASCOPV qui effectue vos copies d'écran en 8 tons de gris ET en deux for- 
mats A4 et A3, A6ENDA qui vous permet de tenir à jour un agenda électronique rapide et 
puissant, 1 page par jour, tri et recherche, calculs, calendrier perpétuel, horloge ..., 
SENDRAU et DESSIN TECHNIQUE (DRAU6HTSMAN) un ensemble graphique pour les professionnels, 
flous avons aussi à des prix imbattables, les crayons optiques DART, les extensions de 
mémoire DK'tronics, MULT1FACE TUO l'interface miracle etc.. comparez nos prix avant d' 
acheter, vous ne le regretterez pas! >>>>>>>>>>>>>>>>>>>>>>>>>> 










Cela fait deux ans que nous attendions l'occasion de placer 
une jolie fille dans notre publicité... 

Cette fois c'est fait et bien à propos ! 

En effet, cette charmante demoiselle à été "numérisée" 

sur un CPC AMSTRAD et une imprimante DflP £000 ... en 

» moins de dix minutes. Le "SCANNER" mis au point par 

* DART, créateurs du maintenant célèbre crayon optique, 

peut d'ores et déjà être commandé chez Sémaphore qui en 

a assuré la version française. 

j Le kit crayon optique f Scanner et logiciels 330.- 

Le Scanner seul avec logiciels 730,- 

if iMt "Upgrade" pour possesseurs crayon optique 

DART (sur preuve d'achat) seulement 630.- 

, NOTRE A000 LE TRAITEtOT DE TEXTE POUR LES PCfl 
È ÛE56 & Ô512 DÉJÀ ADOPTÉ PAR PLUSIEURS 

r .L niLLiERS d'utilisateurs ! Rapidité, fichiers 

/$T"T JF DE M8 ° U M8 ' 000 CARACTÈRES, HaIL-BERGE 

^bJ^Jr incorporé, accès aux ibpribantes exterwes, 

f*?dr COUPAT I BLE DBASEll - IfiSPRICII AUGOEME LES CAPA- 

CITÉS DE L'iBPRIBRMÎE PCC - DISCDfllE TOUT CE QUE UOUS 
ATTEMDIEZ POUR TRITURER CES DISQUETTES ET RÉCUPÉRER CES 
FICHIERS PERDUS! LECTEURS EXTERMES 3,5 ET 5,25 - BlSQUE DUR. 

BRIC0D1SC CPC. La disquette explosive de Sémaphore ! Tout ce dont 

fvous aurez jamais besoin pour commettre toutes les indiscrétions pos- 

'sibles sur vos disquettes ! Deux faces, 120K de dynamite de science et 

de malice... Formatage de vos 3" à 207K par face, créateur de menus, archivage 

rapide sur K7, transfert de fichier, moniteur de disquette avec affichage & 

édition fichiers ASCII, HEX, Source. Copie disquette et K7 à disquette, éditeur CAT 

avec UNERASE, lecteur d'en-tête, déprotection,' compatible 3,5 - 5,25 - 3, tous formats 

Plus de 20 options, RIEN ne vous résistera avec BRICODISC. )))>>> Seulement 250.- 



Sémaphore - CH 1283 La Plaine (SUISSE) - Règlement par 

Envoyer moi vite votre documentation complète 

Nom: Prénom: 

Adresse: 

N.Postal: Ville 



, CCP, VISA, Eurocard accepté 






INFOGRAMMES 
LANCE K1DKIT 

A l'occasion des fêtes de fin d'an- 
née, INFOGRAMMES lance Kid- 
kit à l'attention de tous les 
enfants qui possèdent un micro- 
ordinateur. Véritable sac à malices, il 
contient un classeur, des auto-collants, 
un badge, une carte de membre du club, 
une cassette audio, deux cassettes de 
programmes, un stylo tampon, un 
mémento du Basic, des infos top secret, 
etc. Voilà une idée originale de cadeau 
pour Noël. De quoi faire craquer votre 
ordinateur pour 290 F ! 



NOUVEAUX 
LOGICIELS DE JEU 

Les fêtes de fin d'année arrivent à 
grands pas et c'est l'effervescence 
chez les éditeurs de logiciels de jeu. 
Voici les titres qui devraient être dispo- 
^nibles à l'heure où vous lirez ces lignes. 

CHEZ UBI SOFT 

Trivial Pursuit est une adaptation infor- 
matisée du célèbre jeu de société avec 
plus de 3000 questions, où l'ordinateur 
tient le rôle de Maître de Jeu. Des nuits 
blanches en perspective ! Cassette : 
199 F. Disquette : 259 F. 

CHEZ ERE INFORMATIQUE 

1001 BC - participez aux aventures 
d'Ulysse dans son long voyage en Médi- 
terranée. Parviendrez-vous à lui faire 
retrouver le chemin de Ithaque ? Cas- 
sette : 150 F. Disquette ; 220 F. 

Scott Winder Reporter. Transformez- 
vous en journaliste et partez en reportage 
à l'autre bout du monde suivant les direc- 
tives de l'ordinateur. Disquette : 220 F. 

Egalement annoncés chez ERE INFOR- 
MATIQUE : Harry et Harry, ainsi que 
SRAM II. 



CHEZ ACTIVI5ION 

Peu de commentaires mais seulement les 
titres : Hijack, Aliens, Basketball, Dandy, 
Hacker II, Koronis Rift. 



UN JEU POUR 

PC CHEZ LORICIELS 

Les jeux de conception française sur 
IBM PC et compatibles sont telle- 
ment rares que toute nouvelle sortie 
mérite d'être saluée. C'est le cas de Lori- 
ciels qui vient de produire TERA, un 
grand jeu de rôle et d'aventure qui se 
déroule sur deux planètes perdues dans 
l'espace et le temps d'un monde paral- 
lèle. Vaste programme ! Pas moins de 
2000 combinaisons d'images en trois 
dimensions vous seront proposées au 
cours de votre aventure où l'ordinateur 
tient lieu de générateur de scénario et de 
Maître de jeu. Il y a même des séquen- 
ces de combat dignes des meilleurs jeux 
d'arcade. Parviendrez-vous aux trésors 
de la fabuleuse Cité des Crânes malgré 
les gardiens qui sont... non, pire encore ! 




INNELEC S'ADRESSE 
AUSSI AUX PROS 

Denis THEBAUD (à droite sur la 
photo) de INNELEC et Laurent 
SCHUHL de SOFTISSIMO vien- 
nent de conclure un accord de distribu- 
tion pour le fameux tableur en français 
VP Planner pour AMSTRAD PC 1512 et 
compatibles PC. Identiques à Lotus 
1 .2.3, pour ce qui est des écrans, des 
commandes et des fichiers, il offre en 
plus la compatibilité DBase II et III et est. 
fourni avec un manuel en français de 
250 pages pour 990 F HT.' 




DES EDUCATIFS 
POUR LES PETITS 

Dans notre numéro de mars, nous 
vous avions présenté Vivian 
PESCHARDT, maman de deux 
petits jumeaux, qui s'était décidée un 
beau jour à écrire des programmes édu- 
catifs pour les enfants de maternelle. 
Tout est parti d'une idée très simple : 
jusqu'à présent, il était indispensable de 
savoir lire, ne serait-ce que le menu affi- 
ché à l'écran, pour utiliser un programme 
éducatif, ce qui est quand même para- 
doxal quand on s'adresse à des tout 
petits. Madame PESCHARDT se mit 
donc en relation avec les institutrices de 
l'école que fréquentaient ses enfants et 
de cette collaboration devaient naître 




quatre programmes riches en couleurs 
dont nous vous avions parlé lors de leur 
création. 

Malgré de multiples déboires avec les dif- 
férents éditeurs contactés pour la com- 
mercialisation de ces logiciels, l'auteur 
n'a jamais baissé les bras, et c'est le nou- 
veau cru'PESCHARDT qui nous est pro- 
posé en cette fin d'année chez EUROGI- 
CIEL, jeune société spécialisée dans le 
domaine éducatif. 

La première disquette ou cassette 
contient deux programmes : Colorimage 
et Les ensembles. Le troisième pro- 
gramme, MEMO, est vendu séparément 
sur cassette ou disquette également. 
Colorimage' est composé de tableaux 
représentant plusieurs dessins identi- 
ques, mais de couleurs différentes, tou- 
tes en nuances. A l'aide du joystick, l'en- 
fant devra cliquer le dessin identique à 
celui qui lui est proposé. 
"Les ensembles" présente à l'enfant un 
choix de 6, 12, 18 ou 24 tableaux illus- 
trés de superbes dessins d'objets ou 
d'animaux parmi lesquels l'enfant devra 
reconnaître ceux qui ont une fonction 
commune, par exemple, ceux qui volent, 
ceux qui courent, etc. 
Quant à MEMO, il s'agit d'un programme 
de test de mémorisation avec un choix 
de 3, 6, 9, 12, 15, 18 et 24 tableaux qui 
sortent au hasard, et un temps d'obser- 
vation déterminé par l'utilisateur de 2 à 
20 secondes. Ce jeu couvre une très 
large gamme d'utilisateurs, de la mater- 
nelle jusqu'à l'âge adulte, en fonction des 
paramètres choisis. 

En conclusion, nous disons que, compte 
tenu de la qualité de ces programmes, 
l'utilisation d'un moniteur couleur s'im- 
pose. EUROGICIEL : 1 6 1 69.01 .00.26. 



IF COMPUTER GAME 
THEN GOTO MEGAM 

Dans notre dernier numéro, nous 
vous avions annoncé la création 
de MEGAM au studio 2 de la 
grande halle de La Villette. Le premier 
espace de loisir informatique n'attend 
pas pour créer l'événement : pour les 
fêtes de Noël, MEGAM s'est associé à 
Mastertronic qui mettra sur le marché 
50 000 logiciels à bas prix, accompa- 
gnés d'un coupon de réduction sur le 
droit d'entrée à l'espace loisir. 

MEMO SUR PCW ET PC 1512 

La jeune société dijonnaise DIGITIEL 
vient de créer Mémo qui est un ges- 
tionnaire de fichiers de personnes 
qui permet de traiter les clients, les four- 
nisseurs, les adhérents d'une associa- 
tion, etc. Ecrit en DBase II, puis compilé, 
il permet l'édition de listes et d'étiquet- 
tes avec de multiples possibilités de 
sélection. Tél. 80.67.24.91. 



IMPERIAL SOFTWARE 
ARRIVE EN FRANCE 

La société allemande Impérial Soft- 
ware Systems, très connue outre- 
Rhin' pour sa gamme de logiciels 
utilitaires et sa souris Mousepack pour 
CPC et PCW, vient d'installer une filiale 
en France et travaille activement la fran- 
cisation de ses produits parmi lesquels 
nous trouvons le compilateur Basic 
Typhon et l'assembleur Super Pack 80. 
Tél. 87.09.24.14. 



CLUB ACACIA 

Ils devaient s'appeler Caca (Club 
Amstrad Côte d'Azur}, mais comme 
ça faisait un peu négligé, ils ont pré- 
féré Acacia, comme Amstrad Côte 
d'Azur Club Informatique et Applica- 
tions. Enfin, sachez qu'il s'agit d'un nou- 
veau club qui vient de s'installer à Can- 
nes sous la houlette de Michel EMERIAU 
que vous pouvez contacter au 
93.94.39.12. 



L'ÉVÉNEMENT DE LA RENTRÉE !!! 

LECTEURS 5"l/4 POUR AMSTRAD 

QUI NE DÉTÉRIORENT PAS L'AMSTRAD 



Livrés avec alimentation dans le même boîtier métallique 

POUR CPC 464-664*128 PRIX TTC 

DD6 2 fois 172 ko 1 990 F jusqu'au 31/12 

DD7 2 fois 340 ko AVEC UTTLITAIKES 

POUR PCW 8256 

DD8-A 706 KO COMPLET PRET A FONCTIONNER 

DD8 alimentation sur pcw 

EXTENSION S12 ko 

POUR PC 1512 

DD15-I lecteur de disque supplémentaire 

I 523 F jusqu'au 02/87 
HD20-I disque dur mégas + contrôleur 
Imprimantes pour PC 1512 à partir de 1 690 F TTC 



1690 F 
2 290 F 

2 390 F 

1 990 F 

390 F 



1 390 F 
5 890 F 




FAITES VOS COMPTES !!! 

envoyez la commande et le règlement {+ 50 F forfait port) à 

M.V.I. 14. RUE DE ST-OUENTTN 595+0 CAUDRY 

Joignez-y cette annonce vous recevrez votre cadeau 

Pour tous renseignements, demandez Marco Vincenzi tél. 27.85.50.39 

REVENDEURS BIENVENUS 




BON DE COMMANDE A RETOURNER 



B0M3 JACK H 
VIE AR KUNG FU 



CHEQUE D MANDAI D 
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* CONTACT «■ 
MAGAZINE 

DES DEMONSTRATIONS 
A///ff/Sjàes MEILLEURS 
JEUX pour AMSTRAD 

EDNTAET ' EURE 

19 RUE DE C0LMAR BP 937 
Z7 009 EVREUX Cedex 



PrénorTv_ 
Adresse i. 



VILLE:, 
Tel: 



TOUS les JEUX 

pour AMSTRAD 
au MEILLEUR PRIX 



DEMANDEZ LES PRIX 
AVANT DE COMMANDER. 

@ 32.28.91.39. 

<dfe 32 .28. 19.79 C.AMSTRAD 
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ATAHUALPA 

TRANSOFT 
Arcade 

Par un coup de baguette magique, 
vous devenez responsable de la 
destinée d'Iriacynthe ; cette 
charmante créature s'est retrouvée 
dans les ruines d'une cité aztèque, 
après s'être emparé d'un plan 
magique dans un grenier. 
Elle a également subi une petite 
transformation physique : 
dorénavant, elle a des ailes qui lui 
permettent de voler et d'échapper 
aux toupies et aux sphères qui 
veulent l'anéantir. Seulement, ce 
moyen de déplacement s'épuise 
très vite ! 

Dans cet univers où l'on revient 
toujours à son point de départ 
(Atahualpa est sphérique), le seul 
but est de récolter tous les trésors 
qui s'y trouvent sous forme de 
dollar, diamant ou autres... 
Sur un fond de Boléro de Ravel, 
ce jeu propose un agréable 
divertissement. La carte 
d'emplacement des trésors vous 
permettra de les situer rapidement 
et de perdre le minimum d'énergie 
pour leur récolte. 




FROST BYTE 

MIKROGEN 
Arcade 

Dans les cavernes constamment 
gelées de la planète Cosmia, 



LOGICIELS 




Hickey a réussi à s'évader de sa 
prison et il cherche maintenant le 
chemin de la liberté. 
Il doit pour cela traverser de 
nombreuses cavernes, se défendre 
contre tous les monstres qu'il est 
amené à rencontrer ; en cours de 
route, il peut ramasser différents 
objets qui, selon leur couleur, lui 
permettent d'avancer plus vite, de 
sauter plus haut ou de tomber plus 
bas. 

L'originalité de ce jeu réside dans 
le nombre très élevé de cavernes 
et de monstres différents ; il en 
résulte beaucoup de couleurs. 
Enfin, il ne faut pas oublier 
l'apparence physique et le 
déplacement de Hickey : en effet, 
celui-ci est un i sans point et il 
avance uniquement par contorsion, 
ce qui peut créer des difficultés 
dans les affrontements avec les 
monstres car il ne faut pas oublier 
qu'Hickey tire dans la direction de 
sa dernière contorsion ! 



les nombreuses civilisations qui 
font que notre monde est tel qu'il 
est!.. Sans oublier la "farniente"! 
Aussitôt dit, aussitôt fait ! Vous 
embarquez à bord d'un cargo ayant 
comme destination l'Afrique... et 
en avant pour l'Aventure, avec un 
grand A, car vous n'avez pour tout 
bagage qu'un seul et unique dollar. 
D'emblée, vous serez séduit par les 
images bien colorées, avec un 
graphisme qui occupe tout l'écran. 
Je me pose quand même une 
question : parviendrez- vous à 
"boucler la boucle", puisque vous 
n'avez pas moins de deux 
disquettes à parcourir ? D'autant 
plus que parfois, vous resterez sur 
place, faute de vocabulaire 
approprié ; en effet, il a été 
considéré comme faisant partie de 
l'Aventure de n'avoir aucune 
indication h ce sujet... Il ne vous 
reste plus qu'à essayer d'être 
perspicace grâce aux nombreux 
messages sillonnant votre voyage... 



STf-vA^^t 




GLOBE TROTTER 

EXCAUBUR 
Aventure 

Si jamais on vous propose un jour 
de faire le tour du monde, je 
suppose que vous êtes tout de 
suite partant. Quel bonheur de 
traverser les mers, d'aller d'un 
continent à l'autre et de découvrir 



LIGHTFORCE 

FTL/UB/ SOFT 
Arcade 

Avec ce jeu, vous voilà propulsé 
dans l'univers interstellaire, avec 
tout ce qu'il a d'inconnu et de 
violence. Pour faire face à une 
invasion autour de Régulus, vous 
êtes chargé avec votre avion de 



chasse "LIGHTFORCE" d'assurer la 
vengeance. 

Ayant quatre parcours à effectuer 
et possédant cinq vies, vous êtes 
sûr de mettre vos nerfs à rude 
épreuve, tout en utilisant avec une 
efficacité maximum votre rapidité 
d'action. Dans chaque parcours, 
l'objectif est de détruire un certain 
nombre de centres de contrôle 
pour récupérer une nouvelle vie, 
mais vous subissez différentes 
attaques acharnées. 
Somme toute, ce jeu ne demande 
que des réflexes, mais vous ne 
regretterez pas la qualité et 
l'originalité du "paysage" qui 
s'offrira à vous... 




LE SECRET 
DU TOMBEAU 

LORICIELS 
Arcade /Aventure 

Dans ce jeu, vous rentrez tout de 
suite dans la peau d'un 
explorateur, puisqu'il vous incombe 
de pénétrer et de découvrir ce que 
contient un tombeau, jusqu'à 
présent inconnu et perdu au milieu 
de la jungle. 

Alors, vous vous retrouvez plongé 
dans un labyrinthe avec un nombre 
élevé de galeries ; attendez-vous à 
faire des rencontres, en général 
désagréables, ou des trouvailles. 
Ces dernières seront aussi bien des 
trésors (attention, il y en a qui 
explosent) que des chambres 
mystérieuses avec des récipients 
pleins d'une eau aux actions 
bénéfiques. Au cœur de cet 
étrange tombeau, vous serez même 
amené à faire de la plongée sous- 
marine, n'ayant pas d'autre issue. 
Dans ce dédale original de galeries, 
vous ne serez jamais à bout de 
découvertes, sachant que la 
fermeture de certaines galeries 
vous permettra de vous engager 
dans des nouvelles. Et si vous 
parvenez à la porte du "secret", 
encore faudra-t-il en trouver la 
clé! 



EXPLORATEUR 3 

ERE INFORMAI/QUE 
Utilitaire 

Objets tractais... quel nom. 
mystérieux Seuls quelques rares 
initiés friands Je mdthcmaîiques 
connaissent ia question Pourtant, 
il est très intéressant de se 
pencher sur ce sujet car, au 
moyen de ces calculs, il est ■ 
possible de construire des surfaces 
qui pourront représenter des ub|ets 
ou des surfaces. Quelle que soit 
son échelle, l'objet ou la surface 
apparaissent comme très ir régulier, 
Iragnienlè, Pourquoi ne pas 
construire le paysage de votre 
prochain jeu d'aventure au moyen 
de ce "kit de construction 
(raciale" ? 

Certes, il vous faudra quelques 
bonnes heures avant de tirer des 
résultats cohérents de l'utilisation 
de ce logiciel. En fait, il est très 
technique et la lecture de la notice 
devra être accompagnée 
d'exercices au moyen du logiciel. 
Un programme, appelé Frac! Aid, a 
pour but de vous aider à 
comprendre toutes les subtilités de 
ces calculs. L'aspect de relief est 
obtenu au moyen de la semence 
d'un générateur aléatoire qu'il est 
conseillé d'ajuster pour obtenir un 
aspect harmonieux. Seules 
plusieurs tentatives, avec 
modification des différents 
paramètres, vous permettront 
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d'apprécier l'incidence de chacun 
d'eux sur les tracés obtenus. 
Les surfaces peuvent être obtenus 
paiement en "point par point" : 
bon courage ! Un curseur est alors 
commandé à partir du clavier. 
Après définition, les surfaces en 
mémoire peuvent être traitées 
graphiquement. L'exécution photo 
donne l'aspect fini de la surface- 
mais prend bien du temps ! Les 
banques de surfaces sont gérées 



par le programme et peuvent être 
sauvegardées ou rechargées. Si 
vous préférez |Ouer sur les 
couleurs, c'est la gestion de 
banques d'images qui s'en 
chargera. 

La notice suggère quelques petits 
exemples qui permettront a 
l'utilisateur de se rendre compte 
des possibilités du logiciel. 
A notre avis, Explorateur 3 lun 
produit encore unique dans son 
genrel concernera deux catégories 
d'utilisateurs : ceux qui, curieux de 
nature, veulent s'initier aux, 
(raciales ; ceux qui connaissent 
déjà le sujet el veulent s'en servir 
pour des applications 
mathématiques, scientifiques... ou 
simplement ludiques. 

THE CODE MACHINE 

DISCOVERY SOFTWARE 
Utilitaire 

The Code Machine est un 
ensemble conçu pour aider le 
programmeur travaillant en langage 
machine ou en assembleur. En fait, 
ce logiciel est en deux parties : un 
moniteur et un éditeur-assembleur. 
Ecrit pour 464, la notice confirme 
qu'il est utilisable sur 664. 
Le moniteur propose toutes les 
fonctions que l'on est en lieu 
d'attendre de ce genre de produit : 
accès aux ROM, dump mémoire, 
désassemblage, conversions, points 
d'arrêt, examen des registres, etc. 
Il serait difficile de tout citer. 
L'éditeur-assembleur possède, lui 
aussi, de bonnes capacités. Il 
supporte toutes les directives 
couramment utilisées, ainsi que 
toutes les facilités d'édition 
souhaitables : numérotation auto, 
renumérotation, etc. Le passage de 
l'éditeur vers le moniteur est 
permis. 

Les deux logiciels peuvent résider 
simultanément en mémoire, 
moyennant quelques précautions. 
La notice, de 68 pages, est 
explicite. Son seul défaut est 
d'être en anglais. Gageons que la 
traduction française ne devrait pas 
tarder à arriver, ce qui faciliterait 
l'implantation du logiciel sur le 
marché français. 

MAILING 

SMART 

Bon ! Il y a du bon et du mauvais 
chez SMART... Nous avons trouvé 
leur tableur agréable ; par contre, 
appeler pompeusement "Mailing", 
ce qui n'est même pas un mauvais 
traitement de texte, faut pas 
pousser ! 

Pour nous, un mailing doit 
permettre de récupérer, à partir 
d'un fichier d'adresses, par 
exemple, des noms... et des 
adresses, afin de permettre 
l'emploi d'une circulaire. Rien de 



tout cela ! On est loin du compte 
même. Tout comme le semblant de 
notice qui l'accompagne, ce 
"mailing" serait il une œuvre 
inachevée ? 
Evitez de vous laisser tenter ! 

NUCLEAR DEFENCE 

AMSOFT 
Wargame 

Le monde étant une nouvelle fois 
dans un état de tension proche 
d'un conflit, vous êtes chargé de 
l'éviter, en prenant le 
commandement du dernier-né du 
détachement de défense nucléaire : 
le FALCON. 

Votre ordre de mission se résume 
en trois points : 

1- défendre et protéger vos cités; 

2- attaquer et détruire les 
vaisseaux ennemis, ce qui vous 
permettra de faire le plein de fuel 
pour votre bâtiment ; 

3- attaquer et détruire toutes les 
cités ennemies. 

Vous serez passionné par ce jeu dû 
tous les écrans (il y en a cinq 
différents) sont d'un graphisme 
remarquable; de plus, vous devrez 
faire preuve de stratégie et d'une 
grande organisation pour 
coordonner l'attaque d'une cité 
avec le compte à rebours qui 
déclenche une contre-offensive 
meurtrière. 

Si vous montez à bord du 
FALCON, vous avez la garantie 
d'un double intérêt : intérêt visuel 
et intérêt du jeu, d'autant plus que 
vous avez le choix de votre grade 
avec pour conséquence le niveau 
de difficulté. 

SUPERSPRITES 

PRIDE UTILITIES 
Utilitaire 

Avec un tel titre, vous l'avez 
deviné, ce logiciel n'est pas un 
traitement de texte ! Vous avez 
des idées originales pour créer un 
jeu, mais l'animation des sprites 
vous pose un problème ? il est 
pratiquement résolu car 
Supesprites est un utilitaire qui, 
outre ses possibilités d'édition de 
sprites, offre un ensemble de 
routines, accessibles par le Basic 
au moyen de RSX, pour les 
animer. 19 nouvelles commandes 
viennent compléter le Basic de 
l'AMSTRAD, facilitant le test de 
collision, l'affichage d'un score ou 
encore pour obtenir 8 couleurs sur 
l'écran mode 1... 

Chaque commande est illustrée sur 
un court exemple en Basic. De 
plus, la notice {18 pages en 
anglais) explique comment les 
utiliser en langage machine. 
Un programme de démo, dont le 
listing est également reproduit sur 
la notice, montre quelques aperçus 
des possibilités de Supersprites. Ne 



venez plus vous plaindre qu'il 
n'existe pas d'utilitaire dans ce 
domaine ! 

TABLEUR 

SMART 

Le tableur proposé par SMART est 
d'une utilisation assez aisée. De ce 
fait, il conviendrait facilement à 
des petites applications familiales 
(calculs d'emprunts, simulations 
diverses pour le meilleur choix d'un 
remboursement, crédits, etc.) mais 
trouverait aussi sa place au sein 
d'une petite entreprise. Nous lui 
trouvons un dernier rôle : 
l'initiation à l'utilisation de ce 
genre de logiciels, car sa simplicité 
d'emploi est assez exemplaire. 
La capacité maximale est de 1040 
cases, dans lesquelles on peut 
introduire des labels (textes), des 
données numériques, des formules 
de calculs arithmétiques. Il est 
également possible de réaliser des 
tests logiques, et tout un éventail 
de fonctions mathématiques 
(sommes, moyenne, maximum, etc.) 
est disponible. La duplication de 
cases est aisée. 

Les opérations de calcul peuvent 
porter sur tout ou partie du 
tableau, en fonction de la vitesse 
et des résultats attendus. 
Une représentation graphique, sous 
forme d'histogrammes est 
accessible et permet de 
représenter 3 groupes de 12 
données consécutives. 
Le tableau peut être sauvegardé 
sur disquette puis rechargé 
ensuite. L'édition d'un document 
sur papier, au moyen d'une 
imprimante AMSTRAD ou 
compatible EPSON, permet de 
représenter les labels ou les 
formules, au choix. Là encore, 
l'utilisateur aura le choix 
d'imprimer tout ou partie du 
tableur. Le "formatage" de 
l'imprimante, de l'écran, autorise la 
modification de paramètres tels 
que nombre de colonnes, codes de 
service (imprimante), couleurs de 
fond ou d'encre (écran) ou encore, 
drive en service. 
Dernier raffinement : une 
calculatrice est intégrée au tableur, 
permettant de réaliser les quatre 
opérations de base. 
Simple à utiliser, mais néanmoins 
complet et performant, le tableur 
SMART devrait séduire tous ceux 
qui n'ont pas besoin d'un... 
monstre comme MULTIPLAN. 




OÙ TROUVER LES OUVRAGES 
NOUVEAUTÉS SORACOM 
DÈS LEURS PARUTIONS 



MOULINS MICRO PERON 

90, Rue Regemortes 
03000 MOULINS 
L'OREILLE HARDIE 

Centre Gai. intermarché 
04000 DIGNE 
HI-FI DIFFUSION 

JEAMCO SARL 

19, Rue Tonduti de l'Escarène 

06000 NICE 

GES COTE D'AZUR 

Résidence les Heures Claires 
454, Rue des Vacqueries 
06210 MANDELIEU 

MICROPOLIS 

29, Rue Paillât de Montabert 

10000 TROYES 

GES 

126, Rue de la Timone 

13000 MARSEILLE 

LA PUCE INFORMATIQUE 

42, Rue du Four-Bourg-Neuf 

Vieux Salon 

13300 SALON I 

PROVENCE 

2l', Rue Albert 1» 

17000 LA ROCHELLE 

GES CENTRE 

25, Rue Colette 

18000 BOURGES 

KEMPER INFORMATIQUE 

72/74, Av. de la Libération 

29000 QUIMPER 

SON VIDEO 2000 

MICRO AQUITAINE ( 

COCAS) 

31, Cours de l'Yser 

33800 BORDEAUX 

INFORMATIQUE 2000 

Place René Dévie Le Triangle 

34000 MONTPELLIER 

MICROPUS 

15, Bd. Gambetta 

34000 MONTPELLIER 

MICRO-C 

INFORMATIQUE 

3, Bd. Beaumont 

35000 RENNES 

I.G.L. INFORMATIQUE 

48, Bd. de la Liberté 

35100 RENNES 

VIDEO SERVICE 
INFORMATIQUE 

Galle 

9, Place du Président Coty 

37100 TOURS NORD 

LIM 

Centre Commercial CATS 
37170 CHAMBRAY LES 
TOURS 



DEUXIEME LISTE 



MICRONAUTE 

9, Rue Urvoy de Saint Bedan 

44000 NANTES 

ORDI-2000 

Thierry COLENO 

127, Av. du Régiment de 

Biqorre 

65000 TARBES 

INFORMATIQUE SERVICE 

68, Rue Maréchal Foch 

66000 PERPIGNAN 

MICRO CENTER 

Centre Commercial Place des 

Halles 

67000 STRASBOURG 

GES LYON 

6, Rue de l'Aima 

69001 LYON 

TOUT POUR LA RADIC 

66, Cours Lafayette 

69003 LYON 

MICRO-GESTION FOCH 

25, Rue de Sèze 

69006 LYON 

MICROPLUS 

ELYSEES 26 

28, Av. Champs Elysées 

75008 PARIS 
MICROPLUS 

Sté. KBS ELECTRONICS 

64, Rue de la Chaussée^^^BV 

d'Antin ^.^^^0^ 

75009 PARIS 
CHOLET COMPOSANTS 
ELECTRONIQUE 

2, Rue Emilio-Castélar 

75012 PARIS 

GENERALE 

ELECTRONIQUE SERVICES 

G.E.S. PARIS 

68 et 76, Av. Ledru Rollin 

75012 PARIS 

RC ELECTRONIC 

M. Robert MARTIN 

53, Rue Victor Hugo, BP 12 

84100 ORANGE 

MAJUSCULE POITOU 

3 bis. Rue de l'Eperon 

86000 POITIERS 

ICV 

130, Route de Corbeil 

Villemoisson/Orge 

91360 EPINAY/ORGE 

LOISITECH 

83, Av. Faidherbe 

93106 MONTREUIL 

ORDIVIDUEL 

20, Rue de Montreuil 

94300 VINCENNES 

LADNERS.A. 

175, Av. du Général Leclerc 

94780 MAISON-ALFORT 
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AVENA STE 

Square Colombie, BP 94 
95021 CERGY CEDEX 

CHOLET COMPOSANTS 
ELECTRONIQUE 

90, Rue St. Bonaventure 
49300 CHOLET 

LOGIMICRO 

M. Lerthier 
2, Av. de Laon 
51100 REIMS 
M.I.L. 

27, Rue Ambroise Paré 
53000 LAVAL 

LA JSOUQUINERIE 
7, Rue du Port 
E 56100 LORIENT 
C.S.E. 
Michel LUTZ 
6, Rue Clovis 
57000 METZ 
MICROTEX 
Taquin 

22, Place de la République 
59170 CROIX 

TEC PHONIE 
Rue St, Jacques 
'500 DOUAI 
ANTENNES PRINGAULT 
39 ter, Route de Feiqnies 
59600 MAUBEUGE 
LENS MICRO 
INFORMATIQUE 
96, Av. Alfred Moes 
Route de Lievin 
62300 LENS 
MICROGICIEL 
Bernard Thomas 

2, Place B. Bonhomme 
62500 ST. OMER 
GES NORD 

9, Rue de l'Alouette 
62690 ESTREE CAUCHY 
NEYRIAL 

3, Bd. Desaix 
63000 CLERMONT 
FERRAND 

BASE 4 LIBRAIRIE 

Eric GRENIER 

1 1, Rue Samonzet 

64000 PAU 

ARPAJOU- 

ORGANISATION 

12, Place de la Cathédrale 

64100 BAYONNE 

GES PYRENEES 

28, Rue de Chassin 
64600 ANGLET 

MICRO-PYRENEES 

41, Rue du 4 septembre 
65000 TARBES 



La première liste est passée dans le numéro 16 de CPC. Une liste complète sera publiée dans le numéro 18. 
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LA GRAND M ESSE 

Denis BONOMO 

En France, ce n'est pas comme en Angleterre, où une manifesta- 
tion entièrement dédiée à l'Amstrad a lieu tous les trimestres, 
aussi l'Expo qui vient d'avoir lieu cse 2 1 , 22, 23 et 24 novem- 
bre a-t-elle attiré des milliers de visiteur... 



Bien la Grande Halle de la Vïllette, bâti- 
ment vétusté s'il en est, transformée par 
les architectes, contemporains pour abri- 
ter toutes sortes de manifestations ! Les 
exposants étaient nombreux et les 
stands, riches de nouveautés en tous 
genres. Il y avait beaucoup de vedettes ; 
celles du logiciel, celles du matériel et... 
d'autres en chair et en os ! 
Que recherchait le visiteur, parfois venu 
de loin (Lyon, Marseille, Bordeaux, Lille, 
Rennes, Strasbourg...) ? Déjà, il voulait 
voir, toucher, essayer le célèbre PC 1 51 2 
dont tout le monde parle mais qu'il est 
si difficile d'acheter ! Hélas, ce ne sera 
pas encore'pour demain ! Les anglais for- 
ment 'des listes d'attente que les français 
viennent grossir. Sans vouloir alimenter 
la polémique sur ce sujet, il faut néan- 
moins signaler que, si la machine se fait 
attendre, les conditions posées aux 
futurs revendeurs sont, elles, clairement 
exposées. Espace "professionnel" indis- 
pensable dans le magasin, présentation 
obligatoire de logiciels tels que GEM, 
séparation au sein du magasin des 
machines familiales où les "kids" se 
défoulent sur des jeux dont les ponctua- 
tions sonores risquent de déranger... 
Deux personnes au moins, par point de 
vente, doivent avoir suivi un stage de for- 
mation chez AMSTRAD : c'est une 
bonne garantie pour les futurs clients 
mais les petits magasins pourront-ils 
absorber cette charge supplémentaire, 
surtout quand on sait que les marges 
offertes sur ce matériel sont plus que 
réduites. Interrogés sur ce sujet, les plus 
petits sont unanimes : comment voulez- 
vous qu'on vende une machine à voca- 
tion professionnelle avec des marges 
"familiales" ? On peut effectivement se 
poser la question ! 

Pour en revenir à l'expo, le PC 1512 était 
là, bien présent sur presque tous les 
stands. Les développeurs commencent . 
enfin â pouvoir disposer d'une machine. 
C'est heureux car la compatibilité n'est 
pas totale, d'après ce qui nous a été dit, 
et il faut tenir compte de certaines parti- 
cularités liées à la machine, mais celles- 
ci se révèle rapidement comme étant un 
bon outil de travail. Déjà, on songe à 
améliorer ses possibilités. Une carte gra- 
phique haute résolution couleur (un peu 
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dans le style EGA...) est en cours de mite 
au point ! Digital Research présentait 
toute la famille des GEM disponibles 
bientôt chez MICROPOOL. Quel plaisir 
d'utiliser la machine avec de tels 
logiciels ! 

Côté matériels, on pouvait découvrir pas 
mal de nouveautés. Sur le stand DEIA, 
diffusé par SERIP, était présenté sur 
onduleur qui sera proposé à un prix voi- 
sin de 2000 F. Finie la hantise des pan- 
nes de courant. Pour les budgets plus 
modestes, on pouvait voir chez LOIS1- 
TECH, un boîtier de sauvegarde 
mémoire : une coupure de courant sur- 
vient et la batterie prend instantanément 
le relais, maintenant intact le contenu de 
la mémoire. Bien sûr, le moniteur n'est 
plus alimenté. 

Nos amis suisses de SEMAPHORE Logi- 
ciels présentaient un scanner, capable 
d'analyser une image photographique 
introduite dans votre imprimante et de la 
mettre en mémoire. Côté digitalisation 
d'image, on pouvait voir 2 appareils : le 
premier chez ROMBO, constructeur bri- 
tannique. Le second chez JAGOT et 
LEON, une réalisation bien française. On 
introduit un signal vidéo, issu d'une 
caméra, d'un magnétoscope ou d'un 
téléviseur et celle-ci se trouve digitalisée. 
On peut la traiter, la stocker sur disquette 
etc. 

Après le plaisir des yeux, celui de l'oreille. 
TMPI présentait sa gamme de synthéti- 
seurs musicaux et vocaux. De quoi ravir 
les mélomanes et ceux qui veulent enfin 
donner la parole à leur ordinateur : "Au- 
clair-de-la-lune-mon-ami Pierrot"... 
MMC présentait sa Graphiscop II, la 
fameuse table à dessiner de conception 
française. Design entièrement reconsi- 
déré, couleur bleue. Nous espérons pou- 
voir vous en proposer un banc d'essai 
dans notre prochain numéro. 
En continuant la promenade, on pouvait 
voir également un tuner TV, exposé sur 
le stand ORDIVIDUEL, transformant le 
moniteur couleur de l'AMSTRAD en télé- 
viseur ; un bon moyen pour vous récon- 
cilier avec le reste de la famille. Citons 
encore KENTEL avec son interface/logi- 
ciel de communication Minitel à 350 F. 
Un astucieux dispositif antistatique qui 
évitera à la poussière de s'accumuler sur 



vos écrans, et aux programmes de se 
planter si votre moquette est génératrice 
d'électricité statique, nous a été confié 
par ARTS et BUREAUX SERVICES. On 
pourrait aussi vous parler du nouveau 
SINCLAIR, mais cela intéressera-t-il le 
lecteur de CPC, déjà possesseur d'un 
AMSTRAD ? 

Côté logiciels, nous avons débusqué tou- 
tes les nouveautés que le Père Noél 
pourra vous offrir. Chez LORICIELS, Bob 
Winner, jeu d'arcade-aventure superbe, 
ressemblant à un dessin animé. Chez 
INFOGRAMES, l'ordinateur flirte avec la 
BD. Grâce à un accord passé avec l'au- 
teur des Passagers du Vent, vous pour- 
rez vous transporter avec la belle Isa, au 
XVIIIe siècle, graphismes superbes 
jarantis ! Outre les nouveautés miton- 
nées par UBI SOFT, 




et déjà annoncées 

dans CPC, un contrat de distribution 
exclusif, passé avec British Telecom 
(Firebird, Odin, Beyond, Rainbird) va per- 
mettre de mettre au moins 4 logiciels 
chaque, mois, sur le marché. Prix bas 
garantis ! Chez UBI Soft, on flirte aussi 
avec la B.D et le célèbre Gaston Lagaffe 
va bientôt sévir sur vos écrans. FIL pro- 
pose, pour les fêtes, un coffret à 145 F 
contenant 3 jeux : Gunfright, The Way 
of the tiger, V ! les visiteurs. Et Cobra ! 
Si vous saviez ce que le serpent a 
mijoté ! HMS Cobra nous transporte en 
pleine seconde guerre mondiale : un jeu 
super-intéressant. Meurtres en série vous 
transforme en enquêteur et vous fera 
découvrir l'île de Sark. Une nouvelle 
gamme d'utilitaires, dont un génial Music 
Studio, sur lesquels nous reviendrons 
prochainement, est proposée aux créa- 
teurs. HATIER présentait une gamme de 
logiciels scolaires et éducatifs. Un bras- 
robot était présenté sur le stand et mani- 
pulait entre ses doigts d'acier de délicats 
petits œufs en polystyrène. MICRO- 
APPLICATIONS présentaient "la solu- 
tion", un intégré réunissant les possibi- 
lités offertes par Datamet, Textomat et 
Calcumat. Le PCW n'était pas oublié : 
POLYSOFT offrait Polyprint, un utilitaire 
permettant d'imprimer 
les documents 



avec plusieurs polices de caractères et 
MICRO-C présentait l'adaptation du célè- 
bre Cherry-Paint. 

S'il est hélas impossible de citer tout le 
monde, il convient de parler de l'am- 
biance fort plaisante de cette manifes- 
taion. Des idées originales un peu par- 
tout : STARTER, le roi incontesté de la 
duplication, avait réussi un coup de maî- 
tre avec deux charmantes jeunes filles si 
identiques sous tous les points de leur 
beauté que l'heureux Lam Nguyen avait 
du mal à s'y retrouver. LORICIELS avait 
érigé un château-fort que bien des 
enfants rêvaient de prendre d'assaut. 
Chez INFOGRAMES, on se sentait dans 
un autre monde : deux ravissantes 
demoiselles en compagnie de beaux 
messieurs, illustraient grandeur nature, 
les Passagers du Vent. Chez COBRA 
Soft, c'est l'amiral Morla, programmeur 
de HMS Cobra qui en imposait aux petits 
mousses venus voir ses démos. Les plus 
fûtes ont profité de leur visite sur le stand 
pour examiner la cabane, pleine d'indi- 
ces de Meurtres en série : ça pourra leur 
servir ! Mais la véritable vedette de l'ex- 
position était peut-être la petite puce 
jaune que l'on voyait un peu partout, sur 
les épaules des gens ou les claviers d'or- 
dinateurs. C'est du stand HATIER que 
partaient ces charmantes bestioles qui 
ont fait sourire petits... et grands. 
Une grande fête, bien réussie. A quand 
la prochaine édition ? 
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Un faux compatible est un poison! 
voici l'antidote: 



OHQ 

L'ORDINATEUR FRANÇAIS 

Le plus compatible des compatibles 



Ton abondance, 

Ton TURBO, 

Ton DOS + , ton GEM, 

Ton TURBO-PASCAL, 

Ton PRIX 

... JE CRAQUE! 



|— NOUVEAUTE ' 




TRAN 



53, impasse Blériot, 83130 LA GARDE 
Tél. 94.21.19.68 






DES COMPATIBLES PC A MOINS 

DE 4JDO0F m C'EST UNE RÉALITÉ 

avec la nouvelle gamme d'ordinateurs complets 

JASMIN TURBO HQ de T.R.A.N. 



Et il reste encore 6 ports d'extension dis- 
ponibles. Sa généreuse alimentation à 
découpage de 150W ventilée réside 
dans l'unité centrale et non dans le moni- 
teur, ce qui permet une évolution sans 
soucis de la configuration du système, 
par exemple changer de moniteur sui- 
vant ses besoins. 

La double vitesse, clé 
de la vraie compatibilité 

On connaît bien les problèmes que 
posent les ordinateurs qui ne fonction- 
nent qu'en 8 MHZ avec des logiciels 
écrits pour du 4,77 MHZ, vitesse de l'IBM 
PC. Or, JASMIN PC est un TURBO à 
double vitesse 8MHZ et 4,77 MHZ com- 
mutable au clavier. C'est indispensable 
pour une vraie compatibilité. 
Mis en garde ces derniers temps de la 
mauvaise compatibilité de certains clo- 
nes, j'ai tout de suite testé avec « Com- 
patest » et MS-DOS. Le résultat m'a plus 



que rassuré : 98 % en compatibilité pon- 
dérée et 3 B niveau de compatibilité. Et, 
jusqu'à ce jour, je n'ai pas encore trouvé 
de logiciel pour IBM PC qui ne fonctionne 
pas sur le JASMIN TURBO. 

Systèmes d'exploitation 

J'ai apprécié le choix du système 
d'exploitation DOS PLUS de Digital 
Research Inc., pour sa double compa- 
tibilité avec le système MS.DOS 2-1 1 et 
CP/M 86. Vive les transferts de fichiers 
entre les deux standards. 
Le système d'exploitation d'environ- 
nement graphique G.E.M. (Graphie 
Environment Manager) de DRI est livré 
avec, ce qui permet à JASMIN TURBO 
d'utiliser toute application écrite sous 
GEM, disponible sur le marché. Par 
exemple, le GEM-DESKTOP (pour 
BUREAU) permet d'utiliser le JASMIN 
TURBO avec des Icônes comme un 
Macintosh. 
La convivialité avant tout. 



Jasmin Turbo 
en grande surface 

J'ai été agréablement surpris de trou- 
ver des « JASMIN TURBO » dans une 
grande surface. Avec son look « AT •> et 
sa clé « anti-reset », il fait vraiment pro- 
fessionnel. Mais que fait-il dans un hyper- 
marché, ce compatible IBM PC/XT? 
Quand j'ai vu le prix, j'a compris ! Il com- 
mence à 3.954,47 F Hors Taxes pour 
256 K de mémoire vive (RAM). Mais c'est 
le prix d'un bon micro-ordinateur fami- 
lial ! C'est difficile de résister et, bien sûr, 
je me suis même laissé tenter par un 
modèle supérieur à deux lecteurs de dis- 
quettes et 640 K RAM à 6.224,29 F HT, 
Surtout, je connais bien la société fran- 
çaise T.R.A.N. à travers sa famille de lec- 
teurs JASMIN, bien appréciés des ORI- 
CIENS et des AMSTRADIENS. 

De bonnes surprises 

6.224 F, c'est déjà un très bon prix pour 
un compatible PC classique de même 
capacité, mais quand j'enlève l'embal- 
lage, quelle découverte ! Le langage 
structuré le plus vendu au monde, le 
TURBO PASCAL de Borland avec son 
manuel, les systèmes d'exploitation DOS 
PLUS et GEM de D.R.I. avec le guide 
et les licences officielles. L'ensemble de 
ces logiciels coûte à lui seul plus de 
2.000 F. Encore une autre découverte : 
une souris de haute précision dont le prix 
est d'au moins 1 .000 F. Surtout, l'unité 
centrale contient déjà : 

— la carte-mère équipée de 640 K de 
RAM, du microprocesseur 8088-2, d'un 
emplacement prévu pour le rajout du co- 
processeur arithmétique 8087 et de 8 
ports d'extension à connecteurs longs ; 

— la carte 16 couleurs et graphique 
appelée aussi la carte CGA avec une sor- 
tie vidéo composite couleur, une sortie 
vidéo N. et B., une sortie RVBl, une inter- 
face crayon optique ; 

— la carte « MULTI I/O » comprend deux 
ports série dont un équipé, une interface 
imprimante parallèle Centronic, une en- 
trée manette de jeu, une horloge/calen- 
drier permanent sauvegardée par bat- 
terie, le contrôleur pour deux lecteurs de 
disquette. 

IBM PC/XT sont des Marques Déposées de International Business Machine Corporation DOS PLUS GEM sont des Marques Déposées de DIGITAL RESEARCH INCORPORATION. 

AMSTRAD-PC est une Marque Déposée d'AMSTRAD. TURBO-PASCAL est une Marque Déposée de BORLAND INTERNATIONAL. JASMIN-TURBO est une Marque Déposée de T.R.A.N. 

La Société T R A N. se réserve le droil de modltier tout.-;- BpéE Beatton sans préavis 



Gamme JASMIN TURBO HQ : 

HQ pour Haute Qualité Chaque modèle est équipé d'office d'une carte TURBO, des 
cartes « CGA » et " Multi I/O », du clavier AZERTY de bonne qualité avec indicateurs 
lumineux et d'un lecteur de disquettes 5" 1 14. Chacun est accompagné de DOS-PLUS, 
GEM et TURBO/PASCAL 
HQ CLUB : 256 K RAM extensible à 640 K - 

alimentation allégée - DOS PLUS - 

TURBO PASCAL - 1 lecteur 5"1/4 3.954,47 F HT 

HO 2 640 K RAM - Souris - DOS PLUS - 

GEM - TURBO PASCAL ■ 

Alimentation 150 W - 2 lecteurs 5"1/4 6.224,29 F HT 

HQ10 640 K RAM ■ Souris - DOS PLUS - 

GEM ■ TURBO PASCAL - Alimentation 150 W - 

1 lecteur 5 "1/4 - 1 disque DUR 10 MB 8.001,69 F HT 

HQ 20 640 K RAM - Souris - DOS PLUS - 

GEM - TURBO PASCAL ■ Alimentation 150 W - 

1 lecteur 5"1/4 ■ 1 disque DUR 20 MB 9.915,69 F HT 

Le moniteur monochrome 12" haute résolution est proposé à 758,85 F HT. Le moni- 
teur couleur 14" haute définition : 3.279,93 F HT. 

Où trouver les JASMIN TURBO ? 

Chez VCB2-GARONOR Tél. 48.67.66.01 , D.F.I, PARIS Tél. 42.88.14.97, MICRO-CLUB 
BOBIGNY Tél. 48 31 .69.33. VISMO PARIS (11") Tél. 43.38.60.00, MAXITRONIC MAR- 
SEILLE Tél. 91.34.49.79, TRILOGIC MARSEILLE Tél. 91.08,05.49, SOMECII MAR- 
TIGUES Tél. 42.81.07 38, JCR LYON Tel 78,61 .16.39, MICRO DIFFUSION TOULOUSE 
Tel 61 .22.81 .17. dans les points de vente JASMIN et aussi directement chez T.R.A.N,, 
53. impasse Blériot. 83130 LA GARDE - Tél. 94.21 19.68. 
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TRAJECTOIRE PLANÈTES 



J. VANDENBERGHE 



Pans le numéro 1 3 de CPC, le programme "Localisation des pla- 
nètes" nous permettait de connaître la position des planètes 
du système solaire avec, pour chacune d'elles, leurs coordon- 
nées en ascension droite et déclinaison. 

Aujourd'hui, nous allons suivre leur évolution dans la bande zodia- 
cale durant leur révolution sidérale. 



/ 



On appelle révolution sidérale d'une pla- 
nète le temps qu'elle met à faire un tour 
complet de son orbite autour du Soleil. 
Le tableau ci-dessous résume la compo- 
sition de notre système solaire par ordre 
d'éloignement du Soleil. 

11 Planètes inférieures ou intérieures 
lorbite entre Terre et Soleil! 
Mercure : révolution sidérale 88 jours 
Vénus : révolution sidérale 225 jours 
Terre : révolution sidérale 365 jours 
21 Planètes supérieures ou extérieures 
(orbite plus grande que celle de la Terre). 
Mars : 1 an 322 jours 

Jupiter : 11 ans 315 jours 

Saturne : 29 ans 167 jours 

Uranus : 84 ans 7 jours 

Neptune : 164 ans 280 jours 

Pluton : 284 ans 1 57 jours 

Voici un rappel de mécanique céleste 
important à connaître pour bien com- 
prendre le résultat graphique du pro- 
gramme. 

— Toutes les planètes évoluent dans le 
même sens (sens direct) ; 

— quand une planète semble faire du 
"sur-place", on dit qu'elle est en sta- 
tion ; 

— quand une planète semble inverser sa 
course, on dit que son mouvement est 
rétrograde. 

Ces définitions et leurs explications sont 
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parfaitement décrites dans n'importe . 
quel livre d'astronomie pour amateur. 
Mais revenons à notre programme. Il 
comporte de nombreux points communs 
avec le programme de localisation paru 
dans le numéro 13. Le listing que nous 
vous présentons ici est en fait un com- 
plément de celui-ci. 

UTILISATION DU LISTING 

Sur une disquette ayant au moins 45 K 
de disponible : 

— sauvegarder "Localisation des planè- 
tes" (attention, les numéros de ligne 
devront être conformes à ceux du listing 
paru dans CPC n° 1 3, pages 1 7 et 1 9), 
donc SAVE "TRAJPLAN". 

— Saisir le listing ci-joint (ne pas le lan- 
cer par un RUN, ce listing n'a pas de sens 
pour l'instant). 

— Sauvegarder celui-ci pour corrections 
éventuelles. SAVE "AJOUTER". 

— Une autre sauvegarde mais en ASCII 
par SAVE "AJ0UTER",A 

— Recharger TRAJPLAN par LOAD 
"TRAJPLAN". 

— Le lister et supprimer les lignes sui- 
vantes : 

100, 110, 340, 650, 840, 900, 910, 
920, 950, 960, 990 è 1060, 1340 à 
1 750, 1 860, 1 880, 1 990, 201 0, 21 20, 
2140, 2260, 2280, 2390, 2410, 2420, 
2540, 2560, 2670, 2690, 2770, 2790, 
28 1 à 2870, 3380 à 3500. Supprimer 



REM (') de la ligne 1100. 
- Fusion de TRAJPLAN et AJOUTER 
par MERGE "AJOUTER". 
Et voilà le programme "Trajectoire des 
planètes". Ne pas oublier de le sauvegar- 
der. 

EXPLICATIONS SUR LE 
DEROULEMENT DU PROGRAMME 

Après avoir effectué RUN, on vous 
demande l'année pour laquelle vous vou- 
lez observer l'évolution d'une planète 
(exemple : 1986), puis l'intervalle (en 
jours) entre deux positions de la planète. 
REMARQUE : 

Les planètes intérieures évoluent vite ; 
leur orbite est bouclée en moins d'une 
année terrestre alors que les planètes 
extérieures évoluent plus lentement à 
nos yeux de terriens. Nous aurons donc 
p^ur les planètes rapides à donner un 
intervalle compris entre 5 et 30 jours, 
alors que pour Uranus 200 jours rendront 
le graphique plus lisible. Vos essais vous 
aideront dans le choix des intervalles. 
Les coordonnées, pour chaque position 
tracée, sont affichées en haut à droite de 
l'écran. 

Ce programme peut être enrichi en qua- 
lité, en graphisme et, pourquoi pas, 
représenter notre système solaire en trois 
dimensions... Je souhaite lire des criti- 
ques constructives dans les futurs numé- 
ros de CPC... 




30 ' TRAJECTOIRE GRAPHIQUE DES PLANETES 
331 sy*' li=CHR»ï252i-f" Mercure" i sv* ■ 2) =C 
HR$t235) + " Venus" 

33,: sy*(4i=CHR*--<254> + " Jupiter" :sy* (5) =C 
HR* (255) +" Saturne" 

333 sy*(c)=CHR*<251 ,'+" Uranus":sv* I 7;=CH 
R$ ( 250 ,' f " Nep tune " 

334 5y*i8)=CHR*i253>+" F luton " : sy* ' 3) =CH 
Pîi234.i + " Mars" 

335 rs$(l)~"88 jours": rs$ i2i="225 jours" 
:r-s$(3) ~" i an 322 jours" 

.336 rs$',4)="ll ans 315 jours" :rs$(5) = ' ! 29 
ans 167 jours" 

337 rs*(fc)="84 ans 7 jours" : rst (7! =" 164 
ans 280 jours" 

338 rs$<8)="284 ans 157 jours" 
340 MODE 2: GOTO 2880 

650 LOCATE 49,2:PRINT CHRt ti 76) ; h 1 ; "h " : m 

1 ; "mn" ; si ; "s " ; 

900 PLOT b",by:LDCATË 70,7:PPINT tt; 

905 IF tt.ïrs THEN 912 

910 RETURN 

912 LOCATE .18,25: INPUT "Des iras- vous une 

copie sur imprimante iO/NJ " , r$ 
914 IF r*="0" OR r*="o" THEN 3500 
916 LOCATE 8,25:PRINT"Tapez ï C }-- ; Fou 
r un autre calcul, i F 3 — > Pour retour 
au menu. " 

918 i-*=INKEY*î IF r$="" THEN 918 
920 r*=UPPER*(rt) : IF r$="C" 1 HEM 940 ELS 
E CLS:END 'else run"menu" 
984 j=21 
986 m=3 

1102 LOCATE 10, 15:PRIMT"QUELLE PLANETE V 
OULEZ-VOUS SUIVRE DANS SA TRAJECTOIRE ?" 
1104 LOCATE 4, 17: PRINT" 1 ; Mercure 2; Venus 

3>Mars 4:-Ju.piter 5>Saturne 6>Uranu.s 7>N 
eptune 8>Pluton" 
11 06 LOCATE 39, 18: INPUT " ",pl 



1108 II pi=0 OR pi, d THEN 1106 

1109 tt=0 

1782 IF pi .;i THEN 1900 
1784 rs=88 
1880 GOSUB 2825 
1912 IF p.l<>2 THEN 2030 
1914 rs=225 
2010 603UB 2825 
2042 IF pi . 3 iHEN 21/0 

21 4u SOSUE 282S 

2182 IF pi 4 THEN 23.00 

2280 B05UB 2825 

2312 IF pi... S THEN 2450 

2410 GOSUB 2825 

246.: IF pi ' a THEN 3560 

24c4 rs=3O6$i0 

2560 GÛSUB 2625 

25 c ?2 IF pi ;.- 3 IHEN 2710 

2594 rs=59860 

2690 GOSUB 2825 

2722 IF pi OS THEN 280<. ! 

2724 rs=90S20 

2790 GOSUB 2825 

281o t=t+s: tt=tt+ss 

2820 GOTO 1220 

2S25 LOCATE ,o,2:PFIN CHft*( 1 78 ) ; INT i; 

100 

2870 RETURN 

3380 PRINT STRINSS (79, "-."> 

33''0 PRINT "TRAJECTOIRE ut ":sys.pln" s 

partir du 1 t";aa 

3400 PRINT îîRÏNSi <79, "-") 

3410 LOCATE ', 1 . : PP 10 i "Re - o lut ion siflera 

le de "jsySSpli sUQEATE 14, 19: PRIri I : rss i 

p 1 1 ; 

3415 LOCATE 5,5:PP1NI CHR*U59) s LOCATE 5 

,21:PPlril CHFïi 154> 

3420 LOCATE 5,24;PRINT"8£t TAU ÛEM 

CAN LIO VIE BAL SCO SAS C 
AP VER FOI" 

3425 LOCATE 43, 5: PRINT "Ecart entre deu;: 
points" ; ss! " jours. " 

3430 LOCATE 43, 7: PRlNT"Nombre de jours e 
cou i es — >" 

3435 DEG:ORIGIN 20,200 
3440 ORIGIN 20,242.5 

3450 FOR n'/.=0 10 360 SIEP 2: y=SIN< n7.) : PL 
OT n%*l .66666, 1 17*y:NE> T 
3460 ORIGIN 20, 157.5 

3470 FOR n%=o 10 360 STEP 2: y=3IN « ni; i : PL 
OT n7.*l. 66666, 117*y:NEXT 
3480 RAD: ORIGIN 0,0 
3490 GOTO 1220 
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pride utilities 



55, rue du Tondu 33000 BORDEAUX Tél. 56.96.35.23 




CONTIENT 4 PROGRAMMES : Sauvegarde 

(écran ou imprimante) - Lecteur d'en-tête 

SAUVEGARDE SUR 3" 

Sa facilité d'emploi et ses performances en m 

UN UTILITAIRE DIÇQUE INDISPE 

SANS CONCURRENT, 



ISQUETTES 



de disquettes - Analyse de disque 
Transfert de fichiers sans CP/M 
3"1/2-5"1/4 

tière de sauvegarde font d'HERCULE, 
SABLE SUR AMSTRAD 
UN MUST 100 % FRANÇAIS 



PRIX 



250 F. 



(disque uniquement) 



MULTIFACE II 



UNE MTIRFACE POUR SAUVEGARDER 
TOUS VOS PROGRAMMES 

PLUS PERFORMANTE QUE SES CONCURRENTES 

CARACTÉRISTIQUES: COMPATIBLE TOUS 464-664-6128 ENTIÈREMENT EN FRANÇAIS 



Connection sur la sortie drive 
Presser sur un bouton pour interrompre tout 
programme en mémoire 

Sauvegardes sur tout support (cassette/cassette - 
cassette/disquette -. disquette/disquette - dis- 
quette/cassette) 

Sauvegardes sur 3", 3" 1/2, 5" 174 
Contrôle par menu 
Sauvegarde les écrans de vos jeux 
Possibilité d'imprimer les écrans 
Rechargez les écrans sans l'interface 
Compatible avec d'autres extensions 
Sauvegardes sous forme de 5 fichiers 
Stoppez tous vos programmes 



Visualisez le contenu de la mémoire 

Visualisez, le contenu des registres 

Dump ASCII et hexadécimal ou décimal 

Insérez des points d'interruptions 

Modifiez les couleurs 

Sautez aux adresses de la ROM et de la RAM 

8K RAM et 8K ROM incorporés 

Différentes vitesses de sauvegardes 

Modification possible de chaque octet 

Détecte les erreurs d'utilisation 

Les fichiers ne sont pas protégés, vous pouvez 

les désossembler 

Informe sur tous les états du Z.80 

Possibilité d'utiliser les 64K supplémentaire du 6128 



SAUVEGARDEZ, EXAMINEZ, MODIFIEZ TOUS VOS PROGRAMMES i 600 FRANCS 



E.SAT. Software 

55, rue Tondu 33000 Bordeaux Tel 56 96 35 23 Poste 31 



CBI - CBI - 



- CBI - CBI - CBI 



1 er SPECIALISTE AMSTRAD 
DU SUD-EST 

CBI Informatique - 6 rue Mazarlne - 13100 AIX-EN-PROVENCE 
CBI Informatique - 74 rue Edmond Rostand - 13000 MARSEILLE 



TURBOCOPY III 



Sauvegardez vos disquettes 

Enfin le véritable copieur physique sur Amstrad 

• Copie intégrale de toutes vos disquettes protégées ou non. 

" Permet une analyse complète de chaque piste — compatible 464, 664 et 6128. 
" Analyse ultra performante de chaque piste : 

— secteurs de taille différentes, abîmés 

— pistes non formatées, non standard 

— affichage des numéros de secteur, type. 

— lecteur secteur "effacé", mal écrit. 

• Recopie jusqu'à 42 pistes. 

ATTENTION : TURBO COPY III copie 99% des logiciels du marché il ne devra être utilisé que pour i 
vegarde. Nous dégageons toute responsabilité quant à l'utilisation abusive de ce logiciel. 
D TURBO COPY III 375 F. 



DISQUETTES 3" 
A 29 F TTC L'UNITE 

uniquement par 



PROMU 0KIMATE 20 : 2290 F TTC 



UNIQUE : 3 SYSTEMES 
D'IMPRESSION 

COULEUR 

avec ruban couleur sur papier normal 

NOIR 

avec ruban noir sur papier normal 

SANS RUBAN 

en noir sur papier thermique (49 F le rouleau 
de 30 m} 

L'ensemble de ces procédés bien utilisés 
en font une des imprimantes les plus intéres 
santés et les plus économiques pour une utilisa 
tion personnelle. 



£3tô 



5 » 



BELOTE SUR AMSTRAD 

Pour vous initier, vous perfectionner ou simplement pour 

vous distraire, installez-vous dans votre fauteuil et 

préparez-vous à affronter vos adversaires à la mémoire 

infaillible. 

Si au cours de vos longues parties la soif vous gagne ils 

ne trinqueront pas avec vous car eux ne consomment 

que des "Bits" et resteront lucides et rapides. 

Votre partenaire, sobre, vigilant, et infatiguable vous 

aidera à mettre vos adversaires "dedans". 

Cassette I ■ 145 F Disquette 11 190 F. 



FRACTIONS 5-, 4- et 3- 

Très bon outil pédagogique réalisé avec le concours 
d'enseignants. Entraînement au calcul sur les fractions, 
simplifier, réduire au même dénominateur, additionner, 
multiplier, diviser et calculs plus complexes. Chaque 
réponse fausse est analysée et une aide est fournie. 
Après 10 exercices une note et une appréciation sont 
fournies ce qui permet à chacun de situer son niveau. 
Exercices illimités avec 3 niveaux de difficulté : cela per- 
met à l'utilisateur de débuter avec les fractions puis 
d'acquérir une maîtrise complète du calcul. 
Cassette D 145 F Disquette D 190 F. 



□ OKIMATE 20 2290 F TTC 
(LIVRE AVEC 1 RUBAN + LOGI- 
CIEL DE HARD COPY) 

D CABLE IMPRIMANTE 130 F 
TTC 

□ RUBAN NOIR 99 F TTC 

□ RUBAN COULEUR 99 F TTC 
P SUPPORT ROULEAU THER- 
MIQUE 110 F TTC 

D PAPIER THERMIQUE PAR 
ROULEAU DE 30 M 69 F TTC 
D PAPIER NORMAL PAR 
RAMETTE DE 500 FEUILLES. 
110 FTTC 

□ SUPER PAINT SUR DIS- 
QUETTE 395 f ne 

D SOURIS AMX 690 FTTC 



NOUVEAU 

Stages formation 

AMSTRAD et PC 

à AIX 

et MARSEILLE 

Locoscript, Multîplan, 

D Base II, Framework, 

Lotus, Word, etc. 

Renseignements au 

Service formation : 

42.27.00.40 



Adresse 
Ville _ 



Mon CPC est un : 

D 464 Monochrome 

D 464 Couleur 

□ 664 Monochrome 

D 664 Couleur 

CJ 6128 Monochrome 

D 6128 Couleur 



VOICI MON BON DE COMMANDE 

Cocher tous les articles qui vous intéressent ou faites une feuille à part 

Faites le total + frais de port (30 F pour un achat inférieur à 500 F — 40 F pour moins de 1 000 F - 

Gratuité partir de 1 000 F) 

. Prénom Tél. , 



CPC 17 



Code Postal 



Mode de paiement 

LJ Chèque (ci-joint) 

□ Contre-remboursement 



Envoyez le tout à : 



Service expédition 

CBI Informatique 

Chemin de la Viane 

Les Tousques 

84360 MERINDOL 




Marcel LEJEUNE 

ENCORE DES DISQUES DURS 

L« goaétè Tandon Computer prepyry un 
disque dur de 'l\ megaocieis et une 
carte de contrôleur qui pourraient être 
installés dans les PC 1512 du bas de 
gamme pour un prix voisin de 5000 h 
De son côté, Pluss Distribution annonce 
la disponibilité immédiate de fa Plus card 
qui comprend sur une carte enfichable un 
disque dur de 20 ou 30 mégaoctets et 
l'électronique de commande. Ça vous 
coulera 400 Livres pour 20 Mo et 500 
Livres pour 30 Mo. Tél. 19 44,73 
4/9.49.63. 

NOUVEAUX LOGICIELS POUR LE PC 
1512 

Ashon-Tate fournira en Eurorje des ver- 
sions spécialisées de D Base II et Frame- 
work qui seront disponibles en anglais, 
français, allemand et néerlandais. Tima- 
tic Systems a créé pour les PC une ver- 
sion améfiorée de son logiciel de DAO, 
Microdraft. Tél. 19 44.32 923.67.27. 
49 Livres, c'est ce que coûte Vu writer 
de Vuman. un traitement de textes très 
réputé qui dispose des caractères accen- 
tués des principales langues européen- 
nes. Tel. 1 9 44,61 226.83.1 1 . La célè- 
bre tablette graphique Grafpad 3 de Graf- 
sales et le logiciel de dessin associé 
seront bientôt disponibles pour PC, Tél. 
1 9.44 92.34.39.42. Duncan Data Bases 
propose son gestionnaire de bases de 
données PC promise pour 70 Livres. Tél. 
19.44 19.42.25.38. 

DIGITALISEUR D'IMAGES 

Après The Electric Studio et Rombo Pro- 
ductions, c'est John Morrison qui pro- 
pose un boîtier digitaliseur d'images 
vidéo et un logiciel pour la gamme des 
CPC. Les prix sont à la baisse, 60 Livres 
seulement c'est donné ! Tél. 19 44,53 
253.75.07, 

NOUVEAUX LOGICIELS DE DESSIN 

Metrotech annonce la commercialisation 
de deux nouveaux logiciels de dessin, 
LASIART est un programme de dessin 
artistique géré par un menu à icônes. On 
y trouve les traditionnelles fonctions Fill, 
couper-coller, cercle, zoom, aérographe, 
etc. EASIDRAW s'adresse plutôt au des- 
sinateur industriel et permet de réaliser 
par exemple des schémas de circuits 
électroniques. Chacun de ces produits 
es! vendu 16.95 Livres, Metrotech. 
lechouse. 20 Vine Place. Sunderland. 
SH1 3NA. 



PREMIER PROGRAMME CENSURE 

L'éditeur CRL a eu la désagréable sur- 
prise de voir son programme de jeu Dra- 
cula censuré par le très officiel British 
Board of Film Classification. Basé sur le 
livre de Bram Stoker, le programme est 
un |eu d'aventure graphique, mais para- 
doxalement ce ne sont pas les dessins 
qui ont été censurés, mais les textes qui 
ont même choqué l'auteur du pro- 
gramme (sic), lui-même père de famille. 
Il a déclaré que le programme ne 
conviendrait pas aux jeunes enfants. Une 
mise en garde figurera donc sur les 
emballages de cassettes. Parallèlement, 
CRL annonce la sortie d'un autre jeu 
d'aventure intitulé Murder off Miami où 
vous jouez le rôle d'un détective chargé 
d'enquêter sur ce qui pourrait être un sui- 
cide. La suite de l'aventure s'appellera 
The Mahnsay Massacre et sera disponi- 
ble en 87. 

MIRRORSOFT PERSISTE... 

Si vous êtes un habitué de cette rubri- 
que, vous savez sûrement que nous 
attendons toujours avec autant d'impa- 
tience les deux logiciels d'édition électro- 
nique annoncés depuis de longs mois 
pour les CPC, je veux parler de Pagema- 
ker de Amx et Fleet Street de Mirrorsoft, 
Lorsque nous avons rencontré les pro 



grymmeurs de cette société pour la der 
uisjre lois, ils étaient à la recherche des 
inévitables derniers bugs dans le pro- 
ijunnme. Malgré cela, la société annonce 
Lieux nouvelles versions de ce même 
l(K|i<iel. Liné pour PCW et l'aLitre pour 
MMiipalibles IBM Pc avec drivers pour 
imprimantes à laser. Espérons que nous 
1 1 iiuruns pas à attendre aussi longtemps. 

ET LE PC 1512. C'EST POUR QUAND ? 

Il n'y a pds qu'en France que les ache- 
teurs potentiels de PC 1 51 2 se deman- 
dai it quand ils pourront prendre posses- 
biun de leur machine. Chez nos amis 
anglais, les rumeurs les plus pessimistes 
i iicuieni. au sujet de la habilité des PC 
\{i 12 et surtout de leur date de livraison 
ellective, à tel point que Alan Sugar a été 
ublige de piquer sa colère pour tenter 
d'apaiser les esprits II semble également 
qu'il y ait des problèmes avec les cartes 
contrôleurs de disques durs et c'est 
I usine Western Digital installée en 
Irlande qui prendrait la relève du fournis- 
seur initialement prévu, 

AMSTRAD COMPUTER SHOW 

La XI e édition du désormais célèbre 
AMSTRAD Computer Show se tiendra 
les 9, 10 et 11 janvier 1987 dans les 
salons de l'hôtel Novotel de Hammmer- 
smith. Qu'on se le dise ! 



I 



RÉSULTATS OU SONDAGE 



Tout d'abord, merci à ceux qui répondi 
rent à ce sondage, prenant ainsi quelques 
minutes de leur temps. 
Un sondage n'est pas réalisé pour se 
faire plaisir, mais pour voir quelles amé- 
liorations apporter à notre produit. 
Or certains résultats sont surprenants. 
41 % de nos lecteurs se situent dans> 
une tranche d'âge comprise entre 30 et 
50 ans et 38 % entre 16 et 30 ans. 
58 %, et c'est important, n'ont aucun 
lien professionnel avec l'informatique, 
alors que seulement 1 1 % de "pros" se 
trouvent sur le créneau AMSTRAD. 
30 % sont des étudiants. 
Vous passez de longs moments avec 
votre ami AMSTRAD, puisque 35 % 
passent de 25 à 50 heures, 33 % de 1 
à 25 heures et 1 7 % plus de 50 heures 
par mots, ce qui est important, 
53 % ont acheté leur appareil depuis 
moins de deux ans. Nous trouvons alors 
un résultat qui devrait faire plaisir à de 
nombreux revendeurs. 88 % ont acheté 
leur ordinateur chez un revendeur. Une 
grande partie des produits annexes est 
achetée par correspondance. Cette 
démarche semblerait montrer que les 
revendeurs fixent difficilement leurs 
clients. 

53,4 % utilisent un 464, 14 % un 664 
et 34 % un 6128. Par contre, le chiffre 
du PCW est assez faible, environ 8 %. 
Polii ce qui concerne le changement vers 
le compatible PC 1512. la surprise est 
désagréable, puisque seulement 14 % 
souhaitent acquérir ce matériel, alors que 
l .y ■ t. pensent au PCW. Ct'pt'ndaiit, il 



faut minorer ce résultat, 40 % n'ont pas 
donné de réponse. Nous pouvons pen- 
ser que ces lecteurs n'ont pas encore 
d'opinion sur le sujet. 
Notre lectorat est fidèle puisque 82 % 
sont des lecteurs permanents. 
Nouveau point particulièrement impor- 
tant, 83 % de nos revues sont lues par 
plus d'un lecteur, ce qui est bon comme 
taux de lecture. 

La distribution semble vous satisfaire 
puisque 54 % trouvent facilement la 
revue dans les kiosques. Le fort pourcen- 
tage restant est dû, bien sur, aux abon- 
nés. 

39 % mettent en premier les utilitaires 
puis les bancs d'essais et les articles 
d'initiation. 

En second, nous trouvons, à égalité, l'in- 
formation, les programmes courts. Les 
programmes longs arrivent en 7 e posi- 
tion, 

Ce sont les jeux qui arrivent loin derrière, 
avec les montages électroniques. 
Si ce sondage est parfois surprenant, il 
correspond à peu près à ce que nous 
pensions. 

Reste le problème des délais de livraison, 
parfois longs pour les abonnés. Il s'agit 
la d'un problème de routage. Notre 
société respectant la loi, et ne voulant 
pas se mettre en infraction avec les 
conséquences que cela peut avoir, uti- 
lise le routage T3 légal. Aucune revue 
dédiée à AMSTRAD ne peut utiliser le 
luuUiqe 206 (plus rapide). Nous avons 
sus > v suie! engagé un combat, car il ne 
u-tutejnw? pas seulement AMSTRAD. 




Le mois dernier nous avons vu les principes de l'utilisation de 
l'assembleur ASM, du chargeur LOAD (ou HEXCOM) et du 
debugger DDT. Nous allons maintenant illustrer cette utilisa- 
tion par un programme exemple, dont le seul propos est justement 
de nous fournir un exemple de la façon dont se déroule le cycle de 
développement en assembleur, saisie du source, assemblage, cor- 
rections éventuelles suivies d'un nouvel assemblage, chargement 
et tests. 



Nous voulons donc écrire quelque chose 
de très simple, qui est l'affichage à 
l'écran de tout le jeu des caractères 
visualisables, et de répéter cela cinq fois. 
Le listing du programme ESSAI. ASM 
vous est donné page suivante tel qu'il 
apparaît sur l'écran ou l'imprimante lors 
de l'assemblage. 

Dans les colonnes de gauche de ce lis- 
ting apparaissent des valeurs en hexadé- 
cimal suivies d'un signe - qui indiquent 
les valeurs des constantes. 
Puis vient la partie code généré qui est 
constituée de deux parties : 
■- L'adresse où sera chargé le code, qui 
correspond à la valeur du compteur ordi- 
nal. Comme vous pouvez le constater 
nous avons, par la directive ORG, indi- 
qué que le programme commence en 
100H, ce qui est le point d'entrée obli- 
gatoire de tout programme CP/M. 
— Le code généré par lui-même, c'est- 
à-dire ce que vous pourrez voir à 
l'adresse indiquée par une commande D 
de DDT. 

Le texte à saisir avec ED ou tout autre 
éditeur est donc bien sûr uniquement ce 
qui suit ces colonnes générées par ASM, 
la colonne 1 de votre source correspond 
aux caractères ; des premières lignes. 
Une fois donc votre texte saisi dans un 
fichier que nous appelerons.ESSAI.ASM, 
vous pouvez l'assembler et en obtenir la 
liste à l'écran par : 
A>ASM ESSAI. AAX 
Source ESSAI.ASM sur A :, ESSAI. HEX 
sur Al et liste à l'écran (X). 
Si vous avez fait des erreurs, ASM affi- 
chera une lettre code erreur au début de 
la ligne en erreur. La signification des 
codes erreur importe peu car ASM n'est 
pas le champion de la détection de l'er- 
reur exacte ! Ce qu'il est important de 
noter c'est que si une lettre apparaît, il 
y a presque à coup sûr une erreur. Mais 
attention il y a pire, quelquefois il y a une 
erreur et ASM ne le signale pas ! Il est 



donc important de vérifier que du généré 
apparaît bien avant une ligne qui doit nor- 
malement en générer. Si ce code est 
absent, c'est qu'il y a une erreur. 
Si vous désirez obtenir une trace sur 
papier vous devez procéder de la façon 
suivante : 
A>ASM ESSAI. AAA 



Génère fichier listing ESSAI. PRN sur A: 

A>PIP LST: = ESSAI. PRNIT8] 

Envoi à l'imprimante du fichier liste avec 

prise en compte des tabulations toutes 

les 8 colonnes. 

L'option T8 est obligatoire car ASM 

insère des caractères de tabulation (9) 

qui ne sont pas pris en compte par PIP 



H)ddt essai . com 




















DDT VERS 2. 2 
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et/ou l'imprimante. Cette option provo- 
que la conversion des tabulations en 
espaces. 

Si vous désirez obtenir d'office cette 
conversion ainsi que fa numérotation des 
lignes il suffit de faire : 

' A>PIP PRN: = ESSAI. PRN 
L'imprimante logique PRN : corrrespond 
à LST : avec les options T8N. 
Une. fois le programme assemblé correc- 
tement, il faut convertir le fichier ,HEX 
en fichier .COM par LOAD (ou 

'HEXCOM), 
A>LOAD ESSAI 

Lit. ESSAI. HEX et génère ESSAI.COM 
A^ERA ESSAI. HEX 
Suppression de ESSAI. HEX devenu inu- 
tile. 

Vous pouvez alors tester directement le 
résultat. 
A > ESSAI 

Si cela ne marche pas, vous pouvez être 
amené à essayer de récupérer la main par 
CTRL-SHIFT-ESC pour rebooter CP/M. 
Dans le pire des cas, il faut couper l'ali- 
mentation de l'unité centrale. 
Il faut alors essayer de voir ce qui ne va 
pas en testant le programme avec DDT. 
Tout d'abord, il faut charger DDT et le 
programme à tester. 
A>DDT ESSAI.COM 
Vous pouvez voir, à la page précédente, 
l'illustration de l'essai que nous allons 
faire. 

Comme vous pouvez le voir, DDT affi- 
che deux valeurs en hexa, NEXT corres- 
pond à l'adresse de la fin du programme 
chargé et PC à l'adresse du compteur 
ordinal. Remarquez que, bien que notre 
programme se termine en 01 73, comme 
il est indiqué sur notre listing d'assem- 
blage, le chargement s'opère par blocs 
complets de 1 28 octets, ce qui explique 
le 0180 affiché par DDT. 
Tout d'abord, si nous tapons la com- 
mande D, DDT liste le vidage mémoires 
de 12 lignes de 16 octets à partir de 
l'adresse courante. 

En examinant ce vidage, nous y retrou- 
vons notre programme, vous pouvez 
comparer le code généré indiqué dans le 
listing d'assemblage et le contenu de la 
mémoire aux adresses correspondantes, 
D'ailleurs, un élément saute aux yeux ; 
c'est notre petit message, qui, nous pou- 
vons le vérifier, se trouve bien à l'adresse 
015E. 

Tapons maintenant la commande L. DDT 
nous désassemble les 1 1 premières ins- 
tructions de notre programme. Bien sûr 
DDT ne connaît pas les noms que nous 
avons donnés aux constantes ou aux 
variables, et ce qu'il affiche, ce sont les 
adresses correspondantes telles qu'on 
les trouve dans le code généré. 
Exécutons maintenant quelques instruc- 
tions en mode pas à pas. Pour cela, il suf- 
fit de taper la commande t (Trace). 
Comme vous le voyez DDT affiche la 
valeur des drapeaux, puis tous les regis- 
tres, le désassemblage de l'instruction 
exécutée et, après l'étoile, l'adresse de 
l'instruction suivante. 
Si nous tapons à nouveau t deux fois, la 
dernière ligne nous indique que l'adresse 
de l'instruction suivante est en 0005, 
c'est-à-dire en dehors de notre pro- 
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0100 


115C01 


01 03 


0E03 


0105 


CD050B 


aïoB 


3E0F 


aiafi 


F5 


B10B 


3E21 


010D 


S25A0Î 



01 15 305001 



0119 


0E02 


0116 


CD0500 


01 1E 


305001 


0121 


3C 


0122 


325001 


0125 


CO3E01 


0128 


3O5B01 


Idl^B 


! ,U 


01 2C 


325B01 


012F 


C21501 


0132 


CD4B01 


0135 


FI 


0136 


3D 


0137 


F5 


01 3S 


CR4E01 


01 3B 


C31001 


013E 


CD4B01 


0141 


FI 


0142 


3D 


0143 


C20P01 



ESSAI. ASM 



0005 * 


BDOS 


EQU 


5 î 


du BDOS de CP/M 


0000 = 


PEBOQT 


EQU 


! 


Re-in i ti al i se CP/M 


0002 = 


CONÇUT 


EQU 


2 \ 


Fonction CP/M Console 
affiche un caractère 


0009 = 


PRINTS 


EQU 


9 


Pr i ht St r i Q9 af f i che 
une chaîne ■terminée ps. 


0000 =3 


FAUX 


eau 







FFFF = 


VRAI 


eau 


NOT FAUX 




000F = 


Lig»»s 


EQU 


5*3 


Nombre de lignes a aff 


FFFF => 


CPCS12S 


M» 


VRRI 




0100 




ORG 


100H 





rit adresse de 



c, PRINTS ; Fonction Pr i nt St 
BDOS 



Nombre de l i ?n 



Car Val S Caractère a afficher d 
e> a ; Pu i s dans registre E 
cCDNQUT ; Fonction console eut 
BDQS ; = vi suai i sat i on 
CarVal î récupère caractère 



014E 


0E00 




mvi 


c, REBQQT 


01 4S 


CD0500 




cal l 


BDOS 






' Sous Pr og ranime de L i.ne 


014B 


1E0O 


CrLf : 


MVI 


e, 0OH 


01 4D 


0E02 




|,|V i 


■:', CONOUT 


014F 


CD0500 




rgll 


BDOS 


0152 


1E0D 




mvi 


&, 0DH 


0154 


0E02 




WV i 


c, CONÇUT 


01 5E 


CD0500 




cat 1 


BDOS 









Def 








015A 


00 


C- 


rVa 




db 


; Valeur du caractère affi 


:he 


015B 


00 


D 


lonr 


^ 


db 


; Colonnes visualisées 




01 5C 


000 D 


i*i- 


ssas 


e 


ÎF 


0OH.0DH ; Un M ne feed et un cs.rr, 
CPCE128 


âge return 


01 5E 


4573735169 






db 


' Essai sur CPCbl23' 














ENDIF 
















IF 


NOT CPCbl^S 














db 


'Essai sur CPC464 ou CPC6G4' 














ENDIF 






016F 


0O0fi0D 








db 


0OH,0OH,0DH 




0172 


2ù 








db 


' *' : Marque de fin de ch-juie 




0173 










END 







gramme, et au point d'entrée du BÇOS 
de CP/M. 

Vous pouvez ainsi vous amuser à exé- 
cuter CP/M pas à pas, mais attention, du 
fait de l'interaction entre DDT et le 
système à un moment ou à un autre, 
vous risquez de perdre la main et de pro- 
voquer un plantage ! 
Il est donc habituel de laisser s'exécuter 
les fonctions de CP/M en mode normal. 
Comment faire ? et bien tout simplement 
par une commande G (Go) qui provoque 
l'exécution de cette fonction nous spé- 
cifiant un point d'arrêt qui, bien sûr,- se 
trouve dans notre programme. 



Ainsi G, 108 exécute la fonction CP/M 
et nous reprenons la main à l'instruction 
qui suit cet appel. Ce point d'arrêt nous 
est indiqué par *0108. 
Comme vous pouvez le constater, notre 
fonction s'est bien exécutée et notre 
petit message 'Essai sur CPC61 28' s'est 
bien affiché. 

La commande X, qui affiche une ligne 
presque identique à une trace, nous per- 
met de voir que nous sommes bien arrê- 
tés en 0108 et de connaître la prochaine 
instruction à exécuter. Remarquez au 
passage que les registres ont été utilisés 
par CP/M et que nos valeurs ont été 



détruites. Ainsi DE^ qui contenait 
l'adresse 01 5C de notre message, a 
maintenant une valeur de FE16 ! 
Pour recommencer depuis le début, il 
nous faut repositionner le compteur ordi- 
nal en 0100. C'est ce que nous faisons 
par XP, qui nous affiche la valeur actuelle 
du PC (0108) et nous pouvons la modi- 
fier en tapant 100. Une commande X 
nous permet de vérifier que nous som- 
mes bien revenus en 0100. Mais atten- 
tion, nos registres et drapeaux n'ont pas 
été ré-initialisés. Par la modification du 
PC, vous pouvez aller n'importe où dans 
votre programme, mais si certains regis- 
tres doivent contenir des valeurs préci- 
ses pour une bonne exécution, il est 
nécessaire de les initialiser avant. 

Nous terminons notre essai par une 
commande G, sans point d'arrêt, ce qui 
provoque ■ l'exécution de notre pro- 
gramme et le retour à CP/M puisque 
celui-ci exécute une fonction 'REBOOT' 
de ré-initialisation. 

Mais vous pouvez spécifier un point d'ar- 
rêt avant ce retour à CP/M pour analy- 
ser, par exemple, le contenu des zones 
utilisées, après exécution. 

Le mois prochain nous continuerons par 
l'étude des macro-assembleurs MAC et 

RMAC. Bon debugging ! 



<M&fë£ïte& 




REVENDEUR QUALIFIE 

Propose une gamme complète et diversifiée 

d'ordinateurs AMSTRAD 

étudiée pour s'adapter à vos besoins... 



FAMILIAL 

CPC 464 
CPC 6128 



TRAITEMENT 
DE TEXTE 

PCW 82S6 
PCW8512 



PROFESSIONNEL 

PC 1512:SD-DD 

HD 10 millions 
HD 20 millions 



...et assure la maintenance 
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26, Champs-Elysées 
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75009 PARIS 

48 74 06 78 
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L 



Philippe DEMOULE 



a géographie de l'Europe au bout des doigts, c'est 
que vous propose ce logiciel éducatif entièrement 
phique et animé, basé sur la mémoire visuelle, et de: 

tiné tant aux adultes qu'aux enfants. Il y aura de la compéti 

tion dans les chaumières. 



Sur un rythme de rock endiablé, le menu 
vous propose ses options : 
1 ) Visualisation des pays : Pour appren- 
dre à situer tour à tour chaque pays en 
le faisant clignoter sur une splendide 
carte de l'Europe. 



2) Le puzzle : Pour constituer la carte en 
la redessinant. En cas d'abandon, un 
écran vous présente la liste des pays 
oubliés. Puis une note vous est attribuée. 

3) Le voyage : Vous propose deux exer- 
cices. Le premier consiste à poser un 



-LISTING 



10 ' 

20 ' 
30 ' 

40 

ur 

60 MODE 2: BORDER 3 

70 INK 0, 1: INK 1, 16 

80 W I NDQW# 1 , 24 , 52 , 5 , 20 : PAPEPfl 1 , 1 : PEN# 1 

:CLS#1 

90 L0CATES1, 8, 4:PRINT#1, "UTILISEZ-VOUS 



hélicoptère (joystick et fire ou curseur et 
copy) sur le pays demandé. Le second, 
plus difficile, vous proposera les capita- 
les et ne pourra se dérouler que lorsque 
le premier sera terminé. Une note est 
attribuée pour chaque exercice. (Poser 
l'hélicoptère près des carrés). 
41 L'encyclopédie : Que vous feutllete- 
rez vous fournira pour chaque pays un 
jtableau renfermant ses principales carac- 
téristiques. Le contour du pays vous est 
_" Idans une fenêtre et vous pouvez 
accéder par l'option "GRAPHE" à un 
écran représentant simultanément, sous 
forme djhistogramme, les surface, popu- 
densité démographique des 26 
pays. 

Copiez et sauvegardez à la suite te listing 
1 sous le nom EUROPA et le listing 2 
sous le nom EUR0PA1 . Outre l'écran de 
présentation, le listing 1 vous demandera 
d'indiquer le choix monochrome ou cou 
leur, objet d'une double programmation 
Faites un reset complet avant«t^après 
utilisation. 

280 FOR tp=l T0 2000: NEXT tp 

290 0RISIN 0,0:PLOT 250,240, 1: DRAW 370,2 

40: DRAW 370, 190: DRAW 250, 190: DRAW 250, 24 



100 LOCATEtl 

... 1" 

110 LQCAïEtl 



,6,8:PRINT*1 



6, 10:PRINT#1, 



120 L0CATEttl,9,14: 1NPUT#1 

;momt 

130 IF mon i toi AND monit 

140 POKE 42000, mon ît 



160 MODE 2 

170 IF PEEK (42000) =1 THEN BORDER 12: INK 

0,26:1 NK 1,0: PAPER : PEIM 1 

180 IF PEEK (42000) =2 THEN BORDER 3: INK 

,1:1» 1, 16: PAPER 0:PEN 1 

190 ORIGIN 320,200:r=600 

200 MOVË 0,r 

210 FOR n=0 TO 360 STEP 10 

220 DRAW r*SIN(n> ,r*C0S(n> 

230 NEXT 

240 FOR tp=l TO 2000: NEXT tp 

250 b$=CHR*<164)+" PHILIPPE DEMOULE" :c*= 

"PRQPOSE":gt="UN LOGICIEL EDUCATIF" :d*=" 

EUROPA" :f$=" version 1.86" 

260 LOCATE ( (80-LEN(b*>)/2!+l,5:PRINT b* 

270 LOCATE (<80-LEN(c*))/2),7:PRINT c* 
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210 DIM p*(26) 

220 DIM p(26):F0R n=I TO 26:p (n! =0: NEXT 

n 

230 RESTORE 2040: FOR n=l TO 26:READ a*:p 

*<n)=a*:NEXT n 

240 ' menu principal _- 





50 IF PEEK (42000) =1 THEN BORDER 10: MODE 

2: INK 1,26: INK 0,5: PAPER 0:Pjy|Tl 
EK (42000) =2 THEN BORDER 3 
INK l.TfS^INK 0,1:RAPER 0:PEN 1 
270 CLS 
280 w=0 

290 PLOT 6, 394,1: DRAW 634, 394: DRAW 634, 
:DRAW 6, 6: DRAW 6,394 

300 PLOT 2,398, HDRAW 638,398:DRAW 638,2 
:DRAW 2, 2: DRAW 2,398 

10 LOCATE (<80-L£N( "EUROPA" ))/2), 4: PRIN 
î"EUR0PA" 
320 LOCATE 16, 1 1 : PRINT"VISUALISATION DES 

PAYS 1" 

330 LOCATE 16,13:PRINT"LE PUZZLE (recons 

ti tut ion de la carte) 2" 

340 LOCATE 16, 15: PRINT"LE VOYAGE (auesti 

Ànaire sur les pays) 3" 

3|0 LOCATE 16, 1 7: FRINT"L ENCYCLOPEDIE (b 

ase de données) 4" 

:60 LOCATE 30,24:PRINT "VOTRE CHOIX ?" 
370 GOSUB 4790 
3B0 IF a*="l" THEN 2500 
390 IF a*="2" THEN 420 
400 IF a$="3" THEN 2060 
410 IF a*="4" THEN 3010 
420 ' le puzzle 




430 ON BREAK GOSUB 3850 

440 IF PEEK ( 43903) =1 THEN BORDER 10: MODE 

2: INK 0,26: INK 1,5:PAPER 0: PEN 1 
450 IF PEEK(43ffJ5fcf2 THEN BORDER 3:M0DE 
2: INK 0,1: INk/Î , 1 6WWfERSû t PEN 1 
460 CLS J 
470 sc=0 

480 WIND0W#|,55,72,8,8:PAPER#1,0:PEN#1,1 
490 PLOT 43*. 270: DRAW 600, 270: DRAW 600,2 
90: DRAW 430, 290: DRAW 430,270 
500 WIND0W#5,58,72,2,5:PAPER#5, 1:PEN#5,0 

51% i WIND0W#2,65,69, 14, 14:PAPER#2, 0: PEN#2 

1 

SJ-LOT 490,240:DRAW 556,240:DRAW 556,1 
60: DRAW 490, 160: DRAW 490,240 
530 WIND0W#4,63,69,12,12:PAPER#4,0:PEN#4 
, 1 ?&*«#*: PR I NT#4 , " SCORE " 
540 WIND0W#7, 17,31,3,3 

550 WIND0W#3,10,40,3,23:PAPER#3, 1:PEN#3, 


560 WIND0W#6, 60, 70, 20, 24: PAPER#6, 1 : PEN#6 
,0:CLS#6:PRINT#6:F'RINT#6," Abandon":PRI 



NT#6:PRINT#6, " " ; CHR* < 154) +CHR* (243)+" [E 
NTER1" 

570 PLOT 10,10:DRAW 630,10:DRAW 630,390: 
DRAW 10, 390: DRAW 10,10 

580 PLOT 5, 5: DRAW 635, 5: DRAW 635,395:DRA 
W 5,395:DRAW 5,5 
590 PLOT 400, 10: DRAW 400,390 
■600 PLOT 395, 10: DRAW 395,390 
610 CLS#3 

620 PRINT#3:PRINT#3," Vous devez cit 
er le nom" 

630 PRINT#3," des 26 pays d'europe. Si v 
ous" 

640 PRINT#3, " vous trompez ou encore tai 
tes" 

650 PRINT#3," une -faute d'orthographe, a 
ucun" 

660 PRINT#3, " point ne vous est décompte 
at" 

PRINT#3, " l'erreur vous sera signale 

680 ?F'PINT#3, " Le score vous indigue au 

•fur\ 

690 FÇINT(t3., " et a mesure le nombre de p 

ays" 

700 PRjI^NTftS, " que vous avez trouves. Il v 

ous" 

^T#3, " -faut taper chaque lettre a 





20 PRINT#3, " le cas échéant les espace 

fO F*RINT#3, " mais sans trait d'union. E 

PRINT#3," cas de besoin la touche ve 
te" 
50 PRINT#3," [DEL1 vous servira de gomm 



760 PRINT*3," Validez enfin votre répons 
F'RINT#3, " en appuyant sur la touch 



780 PRINT#3," bleue. .." 

790 PRINT#3:PRINT#3," En-foncez une to 
uche. . . " 

800 CALL 8<BB06:PAPER#3,0:PEN#3,1:CLS#3 
810 PR1NT#5:PRINT#5, " CITEZ LES 26":PRI 
NT#5," PAYS D'EUROPE": INPUTttl ,p*:GQTQ 88 


820 CLS#7:PRINT#2,SC 
830 IF sc=5 THEN u=l:G0SUB 2290:u=0 
840 IF sc=10 THEN u=l:60SUB 2300:u=0 
850 IF sc=15 THEN u=l:G0SUB 2310:u=0 
860 LOCATE 1 , 1 

870 IF sc=26 THEN 1870 ELSE INPUT#l,p$ 
880 IF UPPER*(p*)="" THEN GOTO 1930 ELSE 
RESTORE 1160: IF UPPER* lp*)="FRANCE" THE 
N P(1)=P(1)+1:IF PUiOl THEN GOSUB 1860 
:G0T0 820: ELSE GOTO 1790 
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890 RESTORE 1210: IF UPPER* <p*>= "ESPAGNE" 

THEN p<2)=p<2> + l:ÎF p(2i<>l THEN SOSUB 
1B60:GOÏO 820 ELSE GOTO 1790 
900 RESTORE 1240: IF UPPER» (p*) ="RFA" THE 
N pi.3)=p(3)+l: IF p(3X>l THEN GOSUB 1860 
:EOTO 820 ELSE GOTO 1790 
910 RESTORE 1290: IF UPPER$ <p$S ="SUISSE" 
THEN p(4)=p(4) + l:IF p<4X>l THEN GOSUB 1 
860: GOTO 820 ELSE GOTO 1790 
920 RESTORE 1350: IF UPPER* <p*)=" ITALIE" 
THEN pl5)=p(5)+l:IF p(5K>l THEN GOSUB 1 
860: GOTO 820 ELSE GOTO 1790 
930 RESTORE 1390: IF UPPER* (p*) ""POLOGNE" 

THEN p(6»=p(6! + l:IF p<6K>l THEN GOSUB 
1860: GOTO 820 ELSE 1790 

940 RESTORE 1410: IF UPPER* (p*> ="GRANDE B 
RETflSNE" OR UPPER*(P*) = "GRANDE-BRETAGNE 11 
THEN p(7»= P (7)+l:IF p(7K>l THEN GOSUB 1 
860:60TO 820 ELSE 1790 
950 RESTORE 1440: IF UPPER* (p*) =" ISLANDE" 

THEN p(8)=p<8>+l:ÎF p(8X>l THEN GOSUB 
1860: GOTO 820 ELSE 1790 

960 RESTORE 1460: IF UPPER* (p*) = "GRECE" T 
HEN p(9)=p(9)+l:IF p(9K>l THEN SOSUB 18 
60: GOTO 820 ELSE 1790 

970 RESTORE 1490: IF UPPER* <p*> = "YOUGQSLA 
VIE" THEN P<10)=PU0)+li IF P(10)<>1 THEN 

GOSUB 1860: GOTO 820 ELSE 1790 
980 RESTORE 1510:1F UPPER* <p*> ="ALBANIE" 

THEN p(ll)=p(lll + l:IF pdDOl THEN GOS 
UB 1860: GOTO 820 ELSE 1790 
990 RESTORE 1530: IF UPPER* (p*) ="AUTRICHE 
" THEN p(12)=p(12)+l:IF p(12X>l THEN GO 
SUB 1860: GOTO 820 ELSE 1790 
1000 RESTORE 1550: IF UPPER* (p*) ="HONSRIE 
" THEN p(13'»=p<13ï+l:IF p(13X>l THEN GO 
SUB 1860: GOTO 820 ELSE 1790 
1010 RESTORE 1570: IF UPPER*(p») ="TCHECQS 
LOVAQUIE" THEN p 1 14)=p ( 14) + 1 : IF pil4X>l 

THEN GOSUB 1860:80T0 820 ELSE 1790 
1020 RESTORE 1590: IF UPPER* <p*>="ROUHANI 
E" THEN p(15)=p(15)+l:IF pUSIOt THEN 8 
OSUB 1860:G0T0 820 ELSE 1790 
1030 RESTORE 1610: IF UPPER*(p*)="BULSARI 
E" THEN p(16)=p(16) + l:IF p(16K>l THEN G 
OSUB 1860: GOTO 820 ELSE 1790 
1040 RESTORE 1630: IF UPPER* <p*)= "NORVEGE 
" THEN p(17i=p(17)+l!lF p(17K>l THEN GO 
SUB 1860: GOTO 820 ELSE 1790 
1050 RESTORE 1660:1F UF'PER*!p*)="SUEDE" 
THENp(18)=p(18) + l:IF p(18X>l THEN GOSU 
B 1860: GOTO 820 ELSE 1790 
1060 RESTORE 1690: IF UPPER*(p*)="FINLAND 
E" THEN p(19)=p(19) + l:IF p(19K>l THEN G 
OSUB 1860: GOTO 820 ELSE 1790 
1070 RESTORE 1720: IF UPPER* <p*)=" IRLANDE 
" THEN p(20)=p(20) + l: IF p (20)01 THEN 6 
OSUB 1860: GOTO 820 ELSE 1790 



28 



1080 RESTORE 1740: IF UPPER* <p*)="P0RTU6A 

L" THEN p(21)=p(21) + l:IF p(21X>l THEN G 

OSUB 1860: GOTO 820 ELSE 1790 

1090 RESTORE 1750: IF UPPER*<p*>="PAYS-BA 

S" OR UPPER* <P*)="PAYS BAS"THEN p(22)=p( 

22»+l:IF p(22J<>l THEN GOSUB 186Û:60T0 8 

20 ELSE 1790 

1100 RESTORE 1780: IF UPPER*(p*)="DANEMAR 

K" THEN p(23)=p(23) + l: IF p£23K>l THEN G 

OSUB 1860: GOTO 820 ELSE 1790 

1110 RESTORE 1310:IF UPPER* (p*)="BELGIQU 

E" THEN p(24)=p(24)+l:IF p(24):>l THEN B 

OSUB 1860: GOTO 820 ELSE 1790 

1120 RESTORE 1330: IF UPPER*(p*)="LUXEHBO 

URG" THEN p<25)=p(25) + l:IF p<25XM THEN 

GOSUB 1860: GOTO 820 ELSE 1790 
1130 RESTORE 1270: IF UPFER*(p*> ="RDA" TH 
EN p(26)=p(26) + l:IF p!26X>l THEN GOSUB 
1860: BOTO 820 ELSE GOTO 1790 
1140 PRINT#7, "REPONSE FAUSSE":FOR n=l T 
2000: NEXT n: bonus=bonus-2:CLS#2: BOTO 
S20 

1 150 -francs 

1160 DATA 60,74, 62,75, 69,86, 71,83, 
70,95, 68,97, 68,101, 70,104, 67,1 
03, 66,106, 63,108, 61,110, 58,110, 

60,112, 58,114, 60,116, 58,117, 60, 
118, 64,116, 66,118 

1170 DATA 68,113, 70,113, 74,111, 74, 
120, 78,119, 76,116, 83,113, 85,114 
1180 DATA 93,119, 95,123, 100,124, 1 
03,114, 110,110, 123,103, 116,91, 11 
3,90, 110,88, 105,85, 110,86, 111,80 
, 108,75, 110,72, 107,70, 112,65, 1 
15,63, 107,62, 102,58, 95,63, 90,65, 

85,60, 80,62, 75,68, 70,66 
1190 DATA 60,74, 555,555, 120,58, 120 
,50, 116,46, 114,48, 114,52, 116,54, 

118,58, 120,58, 999,999 
1200 ' espagne-- 



1210 DATA 



5, 



7, 
9, 



,30, 
,50, 
,66, 
,86, 
,76, 
,51 



20,40, 
57,30, 
83,55, 
60,74, 
24,88, 
27,74, 
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29, 


65 


35, 


85 


60, 


46 


78, 


22 


86, 


31 


74, 



33, 30 
60, 42 
80,62 
44,82 
24,83 
34,70 



45,2 
65,4 
75,6 
29,8 
22,7' 
23,5 



1220 DATA 20, «0, 999,999 

1230 ' r-fa 

1240 DATA 143,138, 140,130, 140,120, 
134,118, 132,114, 138,112, 142,108, 
144,100, 147,99, 148,97, 143,91, 126 
,90, 123,93, 117,94, 123,103, 116,10 
8, 118,120, 116,116, 116,120, 122,13 
5, 125,138, 132,138, 133,145, 138,14 
3, 136,142 

1250 DATA 143,138,999,999 
1260 ' ■ rda 



1270 DATA 143,138, 152,142, 153,135, 
152,127, 155,120, 155,111, 150,113, 
142,108, 138,112, 132,114, 134,118, 
140,120, 140,130, 143,138, 999,999 

1 280 ' -su i sse 

1290 DATA 130,85, 126,90, 123,93, 117 
,94, 116,91, 113,90, 110,88, 105,85, 
110,86, 111,80, 117,82, 120,80, 12 
3,83, 126,81, 130,85, 999,999 
1300 ' ■ belgique 

1310 DATA 103,127, 106,126, 116,120, 
116,116, 112,114, 110,110, 103,114, 
100,124, 103,127, 999,999 

1320 ' luxembourg 

1330 DATA 116,116, 112,114, 110,110, 
116,108, 118,120, 116,116, 999,999 
1340 ' italie 



1350 DATA 112,65, 107,70, 110,72, 108 
,75, 111,80, 117,82, 120,80, 123,83, 

126,81, 130,85, 132,87, 139,85, 14 
0,82, 145,80, 146,74, 138,71, 137,63 
, 144,57, 144,50, 147,47, 157,44, 1 
55,42, 164,38, 168,33, 167,27, 165,3 
2, 160,32 • 

1360 DATA 157,28, 160,22, 158,20, 156 
,15, 151,15, 152,20, 155,21, 155,30, 

150,30, 136,45, 139,45, 140,40, 13 
5,45, 130,50, 127,55, 126,60, 118,68 
, 115,63, 112,65, 555,555, 150,18, 1 
46,12, 148,6, 146,6, 144,8, 142,8, 
134,14 

1370 DATA 136,18, 138,18, 140,16, 150 
,18, 555,555, 120,44, 120,38, 118,36 
, 120,34, 116,28, 114,28, 112,26, 1 
10,30, 112,36, 110,42, 112,40, 120,4 
4, 999,999 

1380 ' pologne 

1390 DATA 153,135, 166,129, 172,130, 
175,126, 180,138, 190,135, 194,136, 
196,132, 196,123, 193,120, 195,112, 
198,108, 188,103, 193,98, 183,100, 1 
75,100, 165,109, 163,105, 159,112, 1 
55,111, 155,120, 152,127, 153,135, 9 
99,999 
1400 '•— grande bretagne 

1410 DATA 60,129, 69,126, 71,129, 82, 
125, 85,127, 88,125, 93,127, 90,130, 

93,132, 97,137, 90,140, 94,145, 90 
,153, 88,156, 90,160, 84,166, 93,176 
, 88,178, 83,176, 92,183, 83,185, 8 
3,181, 79,182, 78,177, 73,173 
1420 DATA 77,172, 73,166, 77,170, 78, 
168, 76,163, 74,163, 73,160, 80,158, 

78,148, 72,150, 70,146, 73,144, 65 
,140, 70,136, 77,135, 74,132, 67,133 



60,129, 999,999 



1430 



— isiande-:- 



1440 DATA 46,249, 53,244, 55,239, 59 
" .240, 63,238, 66,240, 70,238, 79,241, 
77,247, : 82, 252, '76,254, 73,252, 70 
,255, 65,253, 64,258, 60,255, 62,261 
, 52,261, 57,256, 54,254, 47,257, 5 
2,250, 46,249, 999,999 

1450 ' « —grece' — ■ — ~- 

1460 DATA 180,17, 193,17, 194,14, 186 
,16, 182,14, 182,10, 185,9, 186,5, 
193,1, 195,3, 193,10, 196,10, 197,15 
, 193,20, 191,50, 193,34, 196,30, 2 
00,30, 198,35, 210,34, 215,42, 212,4 
5, 207,40, 200,43, 193,40, 188,3c 
1470 DATA 183,37, 182,32, 175,29, 180 
,17, 999,999 
1480 ■ — yougoslavie ! . — 

1490 DATA 145,80, 146,74, 143,73, 146 
,69, 150,71, 150,65, 167,48, 175,44, 

175,48, 180,48, 181,40, 183,37, 18 
8,36, 193,40, 195,43, 192,48, 195,50 
, 192,62, 190,65, 185,65, 180,77, 1 
67,75, 160,81, 152,79, 145,80, 999,9 
99 

1500 ' albanie 

1510 DATA' 175,44, 173,32, 175,29, 182 
,32, 183,37, 181,40, 180,48, 175,48, 

175,44, 999,999 

1520 ' ■ ■ — -aut riche ■ 

1530 DATA 130,85, 132,87, 139,85, 140 
,82, 145,80, 152,79, 161,83, 163,90, 

164,95, 155,99, 152,96, 148,97, 14 
3,91, 127,90, 130,85, 999,999 

1540 ' Hongrie- • 

1550 DATA 190,93, 183,96, 180,93, 174 
,92, 172,88, 163,90, 160,81, 167,75, 

180,77, 187,82, 187,87, 190,93, 99 
9,999 
1560 ' tchecoslova^uie — ■-- - — 

1570 DATA 163,90, 164,95, 155,99, 152 
,96, 148,97, 147,99, 144,100, 142,10 
8, 150,113, 155,111, 159,112, 163,10 
5, 165,109, 175,100, 183,100, 193,98 
, 190,93, 183,96, 180,93, 174,92, 1 
72,88, 163,90, 999,999 

1580 '• roumanie -• — 

1590 DATA 190,93, 187,87, 187,82, 180 
,77, 185,65, 190,65, 192,62, 197,57, 
208,59, 216,63, 222,61, 225,60, 22 
3,65, 228,68, 228,70, 220,74, 221,82 
, 213,91, 202,87, 198,91, 195,90, 1 
90,93, 999,999 

1600 ' bulgarie-- • 

1610 DATA 212,45, 207,40, 200,43, 193 



: 
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,40, 195,43, 192,48, 195,30, 192,62, 
197,57, 208,59, 214, A3, 222,61, 22 
5,60, 220,54, 219,49, 223,49, 224,47 
, 216,47, 212,45, 999,999 

1620 norvege • 

1630 DATA 194,258, 172,244, 174,242, 
160,227, 146,211, 151,208, 140,205, 
128,198, 133,192, 125,190, 128,165, 
130,187, 125,180, 128,181, 126,17c, 
124,178, 130,170, 142,176, 145,182, 
146,174, 149,174, 149,180, 153,185, 
152, 190 

1640 DATA 155,192, 152,196, 156,210, 
160,210, 162,214, 160,215, 164,220, 
165,227, 170,230, 170,236, 180,243, 
183,243, 185,248, 195,245, 197,252, 
202,254, 207,250, 210,255, 206,255, 
209,258, 200,260, 194,258, 999,999 

1650 ' suède — 

1660 DATA 146,174, 149,174, 149,180, 
153,185, 152,190, 155,192, 152,196, 
156,210, 160,210, 162,214, 160,215, 
164,220, 165,227, 170,230, 170,236, 
180,243, 183,243, 184,246, 190,240, 
195,229, 195,222, 185,220, 185,210, 
180,208 

1670 DATA 172,198, 170,185, 175,180, 
174,176, 167,175, 173,172, 16e, 168, 
162,151, 158,153, 155,150, 155,146, 
150,150, 151,160, 146,174, 999,999 

1680 ' tin lande 

1690 DATA 195,222, 195,229, 190,240, 
184,246, 185,248, 195,245, 197,252, 
202,254, 207,250, 206,244, 209,240, 
206,234, 211,227, 216,215, 215,210, 
223,203, 210,185, 200,180, 192,177, 
193,181, 185,185, 185,200, 193,208, 
193,213 

1700 DATA 198,215, 198,220, 195,222, 
999,999 

1710 ' Irlande 

1720 DATA 60, 143, 64,147, 64,152, 66, 
154, 66,156, 71,158, 70,160, 71,163, 
68,165, 65,164, 62,168, 59,165, 61 
,164, 56,162, 52,164, 50,162, 52,160 
, 49,158, 50,152, 43,150, 46,148, 4 
3,147, 50,143, 57,146, 60,143, 999,9 
99 

1 730 ' partuga 1 

1740 DATA 22,77, 26,76, 27,74, 31,74, 

34,70, 23,59, 24,51, 20,40, 8,43, 

12,50, 10,53, 12,56, 13,60, 18,70, 

22,77, 999,999 

1750 pays bas — — 

1760 DATA 122,135, 120,138, 114,136, 
115,134, 113,130, 111,135, 106,129, 
103,127, 106,126, 116,120, 122,135, 



30 



999,999 
1770 ' — 



-danemark- 



1780 DATA 133,150, 130,152, 130,158, 

134,156, 138,160, 142,155, 135,147, 

138,143, 133,145, 133,150, 999,999,88 

8,888 

1790 READ xa,ya:PL0T xa*l .5,ya*1.5 

1800 READ x,y 

1810 IF x=999 THEN 1840 ELSE IF x=555 TH 

EN 1790 

1820 DRAW x* 1.5, y* 1.5 

1830 80TD 1800 

1840 Ct.S#2!sc=5C+liF0R n=l T0 500:NEXT:E 

NV 1, 15,-1, 10:ENT 1, 10,4, 1 , 1,-20, 1 : SOUND 

2,400,0, 15, 1,2: GOTO 820 
1850 END 

1860 PRINT#7," DEJA DONNE": FOR d=l TO 2 
OOOiNEXT: RETURN 

1870 FOR n=l TO lOlPRINT CHR* (7) ! LOCATE 
7,24:PRÏNT"Appuye2 sur une touche. .. ":F0 
R d=l TO 400:NEXT d:L0CATE 7,24:PRINT" 

":NEXT n 
1880 WHILE INKEY*="":WEND 
1890 MODE Os FOR n=2 TO 24:L0CATE l,n:PRI 
NT CHR* (64) s: LOCATE 20,n:PRINT CHR*(64>; 
:NEXT n 

1900 FOR n«l TO 20:L0CATE n,l:PRINT CHR* 
<64):NEXT n:FOR 4=1 TO 20:L0CATE f,25:PR 
INT CHR* (64);: NEXT -f:LOCATE 5,B:PRINT"V0 
TRE NOTE s" 

1910 LOCATE 7,16:PRINT CINT(20/25*se) ; "/ 
20" 

1920 FOR tp=l TO 3000: NEXT tp: IF w=l THE 
N PRINT CHR* (23); CHR* lO): GOTO 2060 ELSE 
RUN 150 
1930 MODE 2 
1940 ZONE 40 

1950 LOCATE 20,4:PRINT"voici les";26-sc; 
"pays que vous avez oubl ies s " 
1960 LOCATE 21,5iPRINT" 



1 970 PR I NT : PR I NT : PR I NT : PR I NT 

1980 FOR n=l TO 25 

1990 IF p(n)»0 THEN no=no+lsPRINT " 

"iP$(n), 
2000 NEXT n 

2010 PLOT 10, 10: DRAW 630, 10: DRAW 630,390 
: DRAW 10, 390 ! DRAW 10,10 

2020 PLOT 5.5.-DRAW 635,5:DRAW 635,395:DR 
AW 5, 395: DRAW 5,5 

2030 LOCATE 25,24tPRINT"ENF0NCEZ UNE TOU 
CHE POUR LA SUITE...": WHILE INKEY*="":WE 
NDiGOTO 1890 

2040 DATA FRANCE, ESPABNE, RFA, SUISSE, ITAL 
IE , POLOGNE , 6DE-B , I SLANDE , GRECE , YOUGOSLAV 
I E , ALBAN I E , AUTR I CHE , HONGR I E , TCHECOSLQVAQ 
U I E , ROUMAN I E , BULGAR I E 



2050 DATA NORVEGE, SUEDE, FINLANDE, IRLANDE 

, POR TUGAL , PAYS BAS , DANEMARK , BELSI QUE, LUX 

EMBOURS,RDA 

2060 ' le voyage 



2t 



fHji 



070 ON BREAK GOSUB 
2080 MODE 1 

2090 der iv=i:sc=0:w=w+l 
2100 IF PEEK (43903! = ! THEN BORDER 10: INK 

0,24:INk 1,13: INK 2, 13: INK 3,1 
2110 IF PEEK (43903 )=2 THEN BORDER 3: If* 
0,1: INK 1,16: INK 2, 16: INK 3,23 
2120 0RI6IN 0,0 
2130 CLS 

2140 RESTORE 1160 
2150 READ xa,ya:IF xa=888 THEN 2210 ELSE 

PLOT xa*1.5,ya*1.5 
2160 READ x,y 

2170 IF x=999 THEN 2150 ELSE IF x=555 TH 
EN 2150 

2180 DRAW x*1.5,y*1.5 
2190 GOTO 2160 
2200 * dessin des cadres 



2210 PLOT 8, 8, 3: DRAW 350, 8: DRAW 350 

DRAW 8, 390: DRAW 8, 8: PLOT 4, 4: DRAW 3 

DRAW 355, 395: DRAW 4, 395: DRAW 4,4 

2220 PLOT 362, 388: DRAW 628, 388: DRAW 

10:DRAW 362,10:DRAW 362,388 

2230 PLOT 142, 384, 3: DRAW 208, 384: DR 

8, 334: DRAW 142, 334: DRAW 142,384 

2240 PLOT 414, 224: DRAW 576, 224: DRAW 

206:DRAW 414,206:DRAW 414,224 

2250 PLOT 366,384:DRAW 624, 384: DRAW 

302:DRAW 366,302:DRAW 366,384 

2260 PLOT 366, 80: DRAW 624, 80: DRAW 6 

:DRAW 366, 14s DRAW 366,80 

2270 ' 



55,4: 
628, 

AW 20 
576, 
624, 
:4, 14 



2280 IF deriv=l THEN deriv=0:GOTO 2320 

2290 LOCATE 20,9:PRINT"mer"!LOCATE 21,10 

:PRINT"du":LOCATE 20, ll:PRINT"Nord" : IF u 

=1 THEN RETURN 

2300 LOCATE 6,7:PRINT"A":L0CATE 6,8:PRIN 

T"t"! LOCATE 6,9!PRINT"1":L0CATE 6, 10:PRI 

NT"*" a LOCATE 6, ll:PRINT"n":LOCATE 6, 12» P 

RINT"t":L0CATE 6, 13:PRINT"i"iL0CATE 6,14 

:PRINT"s": LOCATE 6, 15: PRINT"u": LOCATE 6, 

16:PRINT"e"!lF u-=l THEN RETURN 

2310 LOCATE 18,21 ! PRINT"mer" :LOCATE 14,2 

3:PRINT"Mediterranee":IF u=l THEN RETURN 

2320 WINDOWS ,24, 39, 2, 6: PAPER» 1 , 1 :PEN#1 , 

3:CLS#1 

2330 WIND0W#2,10,13,2,4!PAPER#2,2:PEN#2, 

3:CLS#2 

2340 W I ND0W#3 , 27 , 36 , 1 2 , 1 2 : PAFERtt3 , 2 : PEN# 

3,3:CLS#3 

2350 W I ND0W#4 , 24 , 39 , 2 1 , 24 : PAPER84 , 1 : FEN# 



4,3:CLS#4 
2360 WIND0W#5 



39, 15, 18:PAP£R#S 



■ tint 



2370 IF w=2 THEN PLOT 3.66, 176:DRHW 624,1 

768 DRAW 624, 110: DRAW 366, 110: DRAW 366,17 

6 

2380 IF w=l THEN L0CATE#4, 2, 2: PR1NT#4, CH 

fi*(243);" Exercice 1":L0CATE#4, 4,3:PRIN 

T#4, "Exercice 2" 

2390 IF w=2 THEN L0CATE#4, 4,2: PRINT#4, "E 

xet-c ice 1 " : LUCATE#4, 2, 3: PRINT#4, CHR* ( 243 

) ; " Exercice 2" 

2400 sc=0:L0CATE#2, 1, 2: PRINT#2, se 

2410 RESTORE 3880 

2420 PLOT -2, -2, 3: PRINT CHR* (23) s CHR* ' 1 ; 

;:TAG:FQR n=l TO 26: READ d*,dl,d2,dd* 

2430 MOVE dl,d2;PRINT CHR* ! 144) ;: NEXT n: 

TAGOFF: PRINT CHR* (23) ; CHR* (0) ; : RESIORE 

3880 

2440 message*="Qu se situe" 

2450 BOSUB 4170 

2460 GOSUB 3930 

2470 GOSUB 4220 

2480 GOTO 2450 

2490 END 

2500 visualisation - 



2510 ON BREAK SOSUB 3850 

2520 MODE laPLQT 20, 150, 1 : DRAW 290, 150:D 

RAW 290, 184: DRAW 20, 184: DRAW 20,150 

2530 PLOT 4, 394,1: DRAW 634, 394: DRAW 634, 

4: DRAW 4, 4: DRAW 4,394 

2540 LOCATE 2, 2: PRINT" [ESPACE] " 

2550 LOCATE 2, 24.-PRINT" CESCI pour fin" 

2560 OPIGIN 250,0 

2570 IF PEEK(43903)=1 THEN BORDER 10: INK 

0,18: INK 1,0: INK 2, 14: INK 3,0,26 
2580 IF PEEK (43903) =2 THEN BORDER 3: INK 
0,1: INK 1,16: INK 2, 15: INK 3,0, 26 
2590 RÊSTORE 1160 
2600 READ xa,ya:IF xa=B8B THEN 2650 ELSE 

PLOT xa*1.5,ya*1.5,2 
2610 READ x,y 
2620 IF x=999 THEN 2600 ELSE IF x=555 TH 
EN 2600 

2630 DRAW x*l . 5, y*l . 5, 2 
2640 GOTO 2610 

2650 WIND0W#1,3,18,15,15:PAPER#1,0:PEN#1 
,1 

2660 i=Oaii=0 

2670 WHILE INKEY<47) <>0:WEND:SOUND 1 , RND 
(D#200,3,l5ieo=0!i = i + l:ii = i!lF i=27 THE 
N 1 = 1: ii = i:LQCATE#l, ( 16-LEN(p* (i ) ) ) /2, 1: 
PRINT#l,p*(i) ELSE L0CATE#1, !16-LEN(p* ( i 
)) i/2,l:PRINT#l,p*(i) 

26B0 ON l GOSUB 2750,2760,2770,2780,2790 
, 2800 , 28 1 , 2820 , 2830 , 2840 , 2850 , 2860 , 2870 
, 2880, 2890, 2900, 2910,2920, 2930, 2940, 295l 



780, 2790 
860,2870 
940,2950 



, 2960, 2970, 2980, 2990, 3000 
2690 GOTO 2710 

2700 WHILE INKEY (47) <>Q:WENO: SOUND l,RND 
'<l>*200,3,15»CLS#l:oo=lsaN ii BOSIJB 27S0 
, 2760, 2770, 2780, 2790,2800, 2810, 2820, 2830 
, 2860 , 2870 , 2880 , 2890 , 2900 , 29 1 
2940, 2950, 2960, 2970, 2980, 2990 



,2840,2850 
,2920,2930 
, 3000 \." 
2710 READ 



;?20 READ 



*a,ya:IF co-0 THEN PLOT xa*l. 



ya*1.5,3 ELSE PLOT xa*1.5,ya*1.5, 



y: IF x=555 THEN 2710 ELSE IF 

=999 THEN IF co=0 THEN 2700 ELSE 2670 

30 IF co=0 THEN DRAW x*1.5,y*l .5, 3 ELS 

DRAW x*l.S,y*1.3,2 

40 SOTO 2720 

50 RESTORE 1160: RETURN 

2760 RESTORE 1200:RETURN 

RESTORE 1240:RETURN 

RESTORE 1280: RETURN 

790 RESTORE 1340: RETURN 

'800 RESTORE 1380: RETURN 

810 RESTORE 1400: RETURN 

RESTORE 1430: RETURN 

2830 RESTORE 1 450: RETURN 

2840 RESTORE 1480: RETURN 

2850 RESTORE 1500: RETURN 

2860 RESTORE 1520: RETURN 

2870 RESTORE 1540: RETURN 

RESTORE 1560: RETURN 

RESTORE 1580: RETURN 

:900 RESTORE 1600: RETURN 

910 RESTORE 1620: RETURN 

RESTORE 1650: RETURN 

RESTORE 1680: RETURN 

RESTORE 1710: RETURN 

RESTORE 1730: RETURN 

RESTORE 1750: RETURN 

RESTORE 1770: RETURN 

2980 RESTORE 1310: RETURN 

2990 RESTORE 1330: RETURN 

3000 RESTORE 1270: RETURN 

3010 ' ENCYCLOPEDIE 

3020 MODE 2 

3030 IF PEEK (43903) =1 THEN BORDER 10: INK 

0,5: INK 1,26: PAPER OiPEN 1 
3040 IF PEËK<43903>=2 THEN BORDER 3: INK 
0,1: INK 1,16: PAPER OiPEN 1 
3050 WINDQW#1 , 55, 78, 3, 15iPAPER#l , 1: PEN#1 
,0:CLS#1 

3060 PLOT 428,370,1s DRAW 628,370sDRAW 62 
8,156:DRAW 428,156:DRAW 428,370 

370 ON BREAK GOSUB 3850 

080 y2=i:y3=3 
3090 GOSUB 3450 

3100 rest=rest+ls IF rest=27 THEN restai 
3110 IF rest=i THEN RESTORE 3590 i GOSUB 3 
370:0RIGIN 350, 100: RESTORE 1160: SOTO 435 



:© 



2B20 



288' 
289' 



292< 
293': 
294(. 
295f. 
296t 

297( 



3120 IF rest=2 THEN RESTORE 3600: GOSUB 3 

370: OR IG IN 420, 130: RESTORE 1210: GOTO 435 

' : - -- 

3130 IF rest=3 THEN RESTORE 3610: GOSUB 3 

370:0RIGIN 280, 70: RESTORE 1240: GOTO 4350 

3140 IF rest=4 THEN RESTORE 3630:G0SUB 3 

370: RESTORE 1290: SOTO 4350 

3150 IF rest=5 THEN RESTORE 3640: GOSUB 3 

370:0RISIN 260, 160: RESTORE 1350:G0T0 435 

3160 IF rest=6 THEN RESTORE 3650s GOSUB 3 

370:0RI6IN 170, 60: RESTORE 1390: SOTO 4350 

3170 IF rest=7 THEN RESTORE 3660: GOSUB 3 

370:QR1SIN 360, -40: RESTORE 1410: GOTO 435 



3180 IF rest=B THEN RESTORE 3670: GOSUB 3 

37ù:0RISIN 400,-230! RESTORE 1440:G0T0 43 

50 

3190 IF rest=9 THEN RESTORE 3680: GOSUB 3 

37O:0RISIN 150, 200: RESTORE 1460: GOTO 435 



3200 IF rest»10 THEN RESTORE 3690: GOSUB 

3370:0RIGIN 180, 170: RESTORE 1490: GOTO 43 

50 

3210 IF rest=ll THEN RESTORE 3700» GOSUB 

3370: RESTORE 1510: GOTO 4350 

3220 IF rest=12 THEN RESTORE 3710: GOSUB 

3370: OR I G IN 230, 100: RESTORE 1530: GOTO 43 

50 

3230 IF rest=13 THEN RESTORE 3720: GOSUB 

3370:0RI6IN 190, 80: RESTORE 1550:G0T0 435 



3240 IF rest=14 THEN RESTORE 3730: GOSUB 

33701 OR IB IN 190, 70: RESTORE 1570:SOTO 435 



3250 IF rest»15 THEN RESTORE 3740: GOSUB 

3370:0RIGIN 120, 1 10: RESTORE 1590; SOTO 43 

50 

3260 IF rest=16 THEN RESTORE 5750 i GOSUB 

337O:0RIGIN 120, 150: RESTORE I6IO1GOTO 43 

50 

3270 IF rest=17 THEN RESTORE 3760:G0SUB 

3370sORIGIN 190, -160iREST0RE 1630:G0T0 4 

350 

3280 IF re5t=18 THEN RESTORE 3770:G0SUB 

3370:0RIGIN 190, -130: RESTORE 1660:GOTO 4 

350 

3290 IF rest=19 THEN RESTORE 3780:60SUB 

3370:0RT6IN 120, -160s RESTORE 1690: GOTO 4 

350 

3300 IF rest=20 THEN RESTORE 3790:60SUB 

3370:0RIGIN 410, -60: RESTORE 1720! GOTO 43 

50 

3310 IF rest=21 THEN RESTORE 3800: GOSUB 

337O:0RIGIN 480, 130: RESTORE 1740îGOTO 43 

50 

3320 IF rest=22 THEN RESTORE 3810: GOSUB 



32 



3370:0RIGIN 290, 20: RESTORE 1750:8010 435 

5330 IF rest=23 THEN RESTORE ï820s80SUB 

3370s ORISIN 260, -10: RESTORE 1780: GOTO 43 

50 

3340 IF rest=24 THEN RESTORE 3620:B0SUB 

3370:0RIGIN 280, 70: RESTORE 1260:60T0 435 

3350 IF rest=25 THEN RESTORE 3830: GOSUB 

3370:0RIGIN 320, 30: RESTORE 133O:G0T0 435 



3360 IF rest=26 THEN RESTORE 3840: GOSUB 

3370:QR1GIN 3 10, 40: RESTORE 1310:G0T0 435 



3370 READ a*:LOCATE 32,y3:CALL &BB9C:PRI 

NT a*:CALL &BB9CîF0R n=l TO 8:READ a$:y3 

=y3+2:LÛCATE 32,y3:PRINT aS:NE/T n 

3380 RETURN 

3390 IF INKEï '47)=0 THEN 3400 ELSE IF IN 

KEY {18)=0 THEN 4390 ELSE 3390 

3400 CLS#1 

3410 y2=l:y3=l 

3420 FOR n=l TO 9: y3=y3+2: LOCATE 32,y3:P 

R1NT STR1N6*<21," ");:NEXT n 

3430 y2=l:y3=3 

3440 GOTO 31 00 

3450 ' affichage tableau vi 

erge 

3460 RESTORE 3090 

3470 PLOT 6,394, 1:DRAW 634,394:DRAW 634, 

6: DRAW 6,6: DRAW 6,394 

3480 PLOT 2,398, 1 ! DRAW 638, 398-.DRAW 638, 

2: DRAW 2, 2: DRAW 2,398 

3490 FOR y=374 TO 22 STEP -32: PLOT 50, y, 

1:DRAW 420, y: NE XT y 

3500 PLOT 50,376:DRAW 422,376:PL0T 50,20 

:DRAW 422,20 

3510 PLOT 50, 374: DRAM 50,22s PLOT 230,374 

:DRAW 230, 22: PLOT 420,374:DRAW 420,22 

3520 PLOT 48, 376» DRAM 48,20sPL0T 232,376 

:DRAW 232, 20: PLOT 422, 376: DRAW 422,20 

3530 LOCATE 58, 18: PRINT"CENTERI pour gr 

aphe" 

3540 LOCATE 58, 20: PRINT" [ESPACE] pour su 

ite" 

3550 LOCATE 59, 22: PRI NT "[ESC] pour -fin 

3560 DATA Nom officiel, Nom courant, Super- 
ficie en km2, Population, Capitale, Monnaie 
,Gde5 vi 1 les, Religion, Langue 
3570 FOR i=l TO 9:y2=y2+2:READ atl$:LOCA 
TE 10,y2:PRINT atl*sNEXT i 
3580 RETURN 

3590 DATA FRANCE, -,551 000,54 257 000, PA 
RIS, franc, Lyon Marseille, catholicisme ro 
main, français 

3600 DATA ESPAGNE ,-, 505 000,37 654 000, M 
ADRID, peseta, Barcelone Grenade, cathol ici 



sme romain, espagnol 

3610 DATA RFA, Al lemagne de 1 ouest, 249 
00,61 666 000, BONN, mark, Munich Francfort 
, p rotes t '' cathol îcisme, al iemand 
3620 DATA RDA, Allemagne de 1 est, 107 500 
,16 736 000, BERLIN est , mark, Dresde Leipz 
ig,p rot es /cathol icisme, allemand 
3630 DATA CONFEDER. HELVETIQUE, Suisse, 41 
000,6 473 000, BERNE, franc, Genève Zurich 
, pro test /catholicisme, français/ ai 1 émana 
3640 DATA ITALIE, -,300 000,57 197 000, RQ 
NE, 1 ire, Venise Nap les, cathol îcisme, liai 1 
en 

3650 DATA POLOGNE, -,313 000,35 902 000,',' 
ARSOVIE, zloty, Gdansk: uracovie, cathol ici s 
me, polonais 

3660 DATA ROYAUME UNI, GRANDE BRETAGNE, 24 
5 000,56 300 000, LONDRES, livre, Belfast S 
lasgow, protestantisme, anglais 
3670 DATA ISLANDE,-, 103 000,231 OOO.REYK 
TA VIK, couronne,-, protestantisme, français 
/anglais 

3630 DATA GRECE, -,132 000,9 707 OOO.ATHE 
NES, drachme , Cor int he Sa 1 on 1 gue, cathol ici 
sine, grec 

3690 DATA YOUGOSLAVIE, -.256 000,22 516 
00, BELGRADE, dinar, Sarajevo Zagreb, cathol 
ici soie, yougoslave 

3700 DATA ALBANIE, -.28 500,2 795 000, TIR 
ANA, 1 ek, Duras zo, catholicisme, al banal s 
3710 DATA AUTRICHE, -,84 000,7 510 000, VI 
ENNE, schi 1 1 mg, Innsbt-uck Salzbourg, catho 
licisme, autrichien 

3720 DATA HONGRIE, -,93 000,10 711 000, BU 
DAPEST , forint, Debrecen Szeged,catbolicis 
me, hongrois 

3730 DATA TCHECOSLOVAQUIE, -, 130 000,15 3 
14 000, PRAGUES, couronne, Bratislava Ostra 
va, catholicisme, tchèque 

3740 DATA ROUMANIE, -,238 000,22 457 000, 
BUCAREST, leu,Arad Galati , catholicisme, ro 
umain 

3750 DATA BULGARIE,-, 1 11 000,8 890 000, S 
OFIA, lev, Plovdiv Roustchouk, cathol icisme 
, bulgare 

3760 DATA NORVEGE, -,324 000,4 099 000, OS 
LO, couronne, Bergen Molde, protestantisme, 
norvégien 

3770 DATA SUEDE, -,450 000,8 324 000,STOC 
KHOLM, couronne, Kar lstat Goteborg , protest 
antisme, suédois 

3780 DATA FINLANDE,-, 337 000,4 801 000, H 
ELSINKI,mark,Turku Vaasa, protestantisme, 
finnois 

3790 DATA IRLANDE, E ire, 70 000,3 440 000, 
DUBLIN, livre, Cork Limerick,protestantism 
e, anglais 
3800 DATA PORTUGAL, -, 91 600,9 931 000, LI 
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SBQNNE, escudo, Porto La Corogne,oatnolici 

srae, portugais 

3810 DATA PAYS BAS, HOLLANDE, 41 200,14 24 

h 000, AMSTERDAM, florin, La Haye Rotterdam 

, protest, 'catholicisme, hollandais 

3820 DATA DANEMARK, -,43 000,5 122 000, CD 

PENHASUE, couronne, Esbj erg Odefise, protest 

. ca tho 1 1 c i sme , dano i s 

3830 DATA LUXEMBOURG, -, 2 600,364 000, LUX 

EMBQURS, franc,-, catholicisme romain, lune 

mbourgeois 

3840 DATA BELGIQUE, -,30 500,9 870 000, B 

RUXEU.ES, franc, Anvers Liège, es tho 1 îc isme 

romain, beige 
3850 TASOFFsRUN 150 

Î60 RETURN 
3870 coordonnées sur ia carte 



3880 DATA 
se, 166, 1 
1 espagne 
3890 DATA 
gde breta 
, j 88, Bonn, 
gigue, 148, 
er 1 m, le 1 
3900 DATA 
pays ha 
le, 256, 104 
an a, la poi 
,266,44,At 
3910 DATA 
ongr le, 266 
2 le, 164, Pr 
est, la bul 
5920 DATf 
de, 256,? 
4,Helsinl- 
e, 999,99c 



ta france, 136, 15 
8, Berne, 1 1 tai 1e 
56, 84, Madrid 
le portugal , 26, 1 
tgne, 120, 234, Lond 
1 ' Irlande, '6,234 
190, Bruxelles, la 
uxembourg, 164, 1 
1 Islande, 96, 374 
170, 206, Amsterda 
Belgrade, 1 'alba 
ogne,266, 184, Var 
henes 

1 autnche,216, 1 
, 134, Budapest, te 
ague, la roumanie 
garie,306,84,So+ 
la norvege,206, 2 
4,Stoclholm, la t 
, le danemarl , 196 
999,999 
sp cura 



4, Paris, la sui 
, 186, 104, Rome, 

04, Lisbonne, ia 

res, la rfa,190 

Dublin, la bel 

rda,218, 190, B 

6, Luxembourg 

, Reykjavik, les 

la yougosiav 

nie, 260, 70, Tir 

sovie, ia greee 

34, Vienne, la h 

hecoslovaguie, 

,306, 114,Bucar 

ia 

94, 0s la, la sue 

in lande, 296, 30 

, 234 , Copenhagu 



7-74,;, FRINT CHR*Ï23! }CHR*i 1) ; 

3950 PLOT -2,-2,3 

3960 TAG 

3970 xcurs=310:ycur5=230 

5980 MOVE : curs,ycurs:PRÏNT air*; 

3990 FOR tp=l T0 80:NEX.T tp 

4000 MOVE xcurs,ycursiFRINT cor*; 

4010 IF ÏNKEY<1>=0 OR J0Y<0)=8 THEN xcur 

s-xcurs+10 

4020 IF INKEY(8)=0 DR JQY(0)=4 THEN xcur 

s=: curs-10 

4030 IF It#EY<0!=0 OR JQY(0)=1 THEN ycur 

s=ycurs+îO 

4040 IF INKEY(2/=0 0* JQY(0)=2 THEN ycur 

s=ycurs-10 

4050 IF INKEY<?)=0 OR JÛY'.0>=16 OR JOïiO 

(=32 THEN TAGOFF: RETURN 
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4390 



graphe — 



4060 IF JOY(0!=9 THEN i:curs=xcurs+10: ycu. 

rs=yours+10 

4070 IF J0Y(0>=10 THEN xcurs=xcurs+10: yc 

urs-ycurs-10 

4080 IF J0Y(0)=5 THEN xcurs=xcurs-10:ycu 

rs=ycurs+10 

4090 IF J0Y(0)=6 THEN xcurs=xcurs-10: ycu 

rs=ycurs~10 

4100 IF xcurs>320 THEN xcurs=320 




THEN xcurs=20 
THEN ycurs=380 
HEN ycurs=30 
0,-2,1 
,1,0,20 



4110 IF 

4120 IF 

4130 Irf 

4140 ErÇ 

4150 SOi 

4160 60TI 

4170 IF w=2 THEN CLS#5 

4180 LOCATE*!, < 16-LEN (message*! ) ,'2, 2: PRI 

NT#1, message* 

4190 READ pay*,xp,yp,dd*:ÎF pay$="999" 1? 

HEN FOR tp=l TO 1000: NEXT tp:GOT0 18SW* 

4200 IF w=i THEN L0CATE#1 , ( 16-LEbUf^y*) ) 

/2,4:PRINT#l,payS ELSE L0CATE#lJFl6-LEN( 

dd*i)/2,4:PRINT*l;,dcr* 

4210 RETURN F*J 

ycurs >yjJ"#f ATO^^^«yp+20 THErWJ^fc* 
3,4, 1:FRINT#3, "exact ": sc=sc+l : IF 
HEN LDCATE#2,2,2:PRfc#2,sc:L0CA 
:PF.INTIt2 ) r l, *>' , :G0TQ 4250 ELSE LOCA 
:PRINT#2,sc:GOT0 4250 - 

THEN L0CATE#2,2,2!PRINT#2,sc:LDCATE#2, 
2,2:PRINT#V'0" ELSE L0CATE#2, 1,2:PRINT# 
2, se 

4250 IF W=2*|HEN PAPER*5,2:CLS#5:L0CATE# 
^5>fc2:PRINT«*, "C'était" :L0CATE#5, (16-LEN 
(paySTV2, .3|F'R I NT#5 , pay* 

4260 FOR n=l TO 8: FOR tp=l TO 300: NEXT t 
psIMK 2,18:FOR tp=l TO 3003 NEXT tps.I 
,13:NEXT 

4270 PAPER#5, 1 : CL: 
4280 CLSfHsjÉlUBU' 
4290 ' -&- — -^redéfini ti 



L*t3^>««» 



„M>0 SyTOOL^l^Bs 



3,&; 



4310 SYMBOL 242,128,0,2,2,252,192 
4320 cur$=CHR* (241 ) +CHR* (242) 
4330 SYMBOL 244,240, 128, 128, 128, (! 
4340 RETURN 

4360 READ xa,ya:PL0T xa*2,ya*2,0 

4370 READ x,y:IF x=555 THEN 4360 ELSE IF 

x=999 THEN 3390 ELSE DRAW x*2,y*2 
4380 GOTO 4370 



5: INK 1 




f 





4400 MODE 2 

4410 IF PEEK (43903) =1 THEN II* 
,26: PAPER 0:PEN 1 : BORDER 10 
4420 IF PEEK (43903) =2 THEN INK 0,1: INK 1 
,16:PAPER 0:PEN 1 s BORDER 3 
4430 CLS 
4440 x=-2 

4450 FOR n = l TO 18: x=x+46: PLOT Xj^WrW» 
W x, 380: NEXT 

4460 PLOT 596, 198,0: DRAW 596,6ir 
4470 FLOT 0,200, 1 : DRAW 640,2Ù0:PL0T 0,38 
OsDRAW 640,38o:PL0T 0,4:DRAW 640,4 
4480 PLOT 550, 100: DRAW 640,100 
4490 LÛCATE 17, 1 ! PRINT"superf lcie - pafu 
lation - densité démographique" 
4500 L0CAHj ^70, 1 j pRINT"COL. 1: SUP. 
4510 LOCATE 70, 16: PRINT"C0L. 2:' POP. 
LOCATE «Tmr-RJNT"C0L.3: DEN. " 
30 LOCATE 72^Ê:PRINT"lENTER]" 
4540 xd=~l:yd=230 
4550 RESTORE 4770 
4560 READ x*,hl,h2 

4570 IF x$="888" THEN IF INKEY(18)=0 THE 
N TAGDFF:RUN 150 ELSE 4570 
4b80 IF x$="999" THEN xd=-i:yd=28sG0T0 4 

J60 

590 TAG: MOVE XD+4, YD L 6: PRINT X*j 
h2=h2*10:h3=h2/hl 
4610 h(l!=hl/5:h(2)=h2/50:h(3)=h3*3 
4620 FOR h=l TO 3 
4630 xb=xd+(h-l>*14 
4640 yb=yd+(h-l)*14 
4650 FOR dx=l TO 4 
4660 PLOT xb+dx,yb+dx+h<h),l 
4670 IF dx>l THEN PLOT xb+dx+10, yb+dx, 1: 
DRAW xb+dx+10, yb+dx+h (h) :G0T0 4710 
4680 FOR dl = l TO 10 

4690 PLOT xb+dx+d 1 , yb+dxagRAW xb+dx+dl,y 
b+dx+h (h) 
4700 NEXT di/^W 

4710 PLOT xb/dx+Bw**8»êb<h) :DRAW xb+dx+ 
10, yb+dx+h US) ,0 
4720 NEXT Sx 
4730 PLOT >;b+dx-l,yb+dx+h(h),0:DRAW xb+d 
x-l + 10,yb+Ylx+h(h) , 1 
474i:vNËXT h 
4750 xd=xd+46:G0T0 4560 
£760 *v^~ données pour le graphe — 







4770 DATA -fra,551,540, esp,505,370, su 
TJ%1,60, ita, 300,570, pal, 313,360, r. 
u, 245, 560, isl, 103,2.3, gre, 132,97, y 
ou, 256, 230, alb,28,27.9, aut,84,75, n 
on, 93, 107, tch, 130, 153. 1, rou,238,224. 

4780 DATA 999,999,999, bul , 1 1 1 , 88. 9, n 
or, 324, 40. 9, sue, 450,89.2, Tin, 337, 48, 



îr 1,70,34.4, par, 91, 99. 3, bol, 41, 142 
.4, dan, 43, 51. 2, rta, 249, 616.6, rda, 1 
08,167.3, bel, 31, 98. 7, lux, 3, 2. 6, 888 
,888,888 
4790 -mélodie 

4800 RESTORE 5140 

4810 EVERY 15, 1 SOSUB 4870 

4820 EVERY 60,3 GOSUB 4850 

4830 EVERY 15,2 GOSUB 4980 

4840 a*=INKEY$:IF a*="l" OR a*="2" OR ai 

="3" OR a**"4" THEN DI: RETURN ELSE 4840 

4850 ENV 1, 15,-1, 1 

4860 SOUND 2,0,15,15,1,0,1 

4870 ENV 1, 15,-1, 1 

4880 SOUND 2,0,15,15,1,0,5 

4890 RETURN 

4900 ENV 2,15,-1,3 

4910 SOUND 1,600,45,15,2,0,10 

4920 SOUND 4,5,45,15,2,0,1 

4930 RETURN 
.4940 ENV 3, 15,-1,5 
V|5ù ENT 1,1,-1,1,2,1,1,1,-1,1 

49|0 SOUND 2,10,75,15,3,1,10 

49% RETURN 

498» ' 

499(ÏREAD s: IF 5=0 THEN RETURN ELSE IF s 

=999\THEN RESTORE 5140:GOTÛ 4990 ELSE 50 

90 

5000 ", " THEN s=451 

THEN s=379 
1020 IF i*="3" THEN £=358 

5030 IF i*="4" THEN 6=338 

5040 IF i$="5" THEN s=3ûl 

5050 IF l*="6" THEN s=284 
060 IF i*="7" THEN s=239 

#370 IF i*="8" THEN s=225 

5080 IF 1*="" THEN RETURN 

3090 ENV 1,1,-1,4 

5100 ENT 1, 10,-1,0, 10,1, 1 

5110 SOUND 1,5,30,14,0,1 

5120 SOUND 4,3*2,30,15,0,1 
30 RETURN 

51%» DATA 451,0,379,0,301,0,0,451,379,0, 

301,301 

5150 DATA 451, 0,379, 0,301, 0,0, 451, 37", o, 

301,301 

5160 DATA 338,0,284,0,225,0,0,338,284,0, 

5170 DATA 338,0,284,0,225,0,0,338,284,0, 

225,225 

5180 DATA 451,0,379,0,301,0,0,451,379,0, 

301,301 

5190 DATA 451,0,379,0,301,0,0,451,379,0, 

301,301 

5200 DATA 338,0,301,338,338,379,0,451 

5210 DATA 999 

5220 FIN DU LISTING 2— 
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DUCHET COMPUTERS & SIREN SOFTWARE TflllT PHI R 'AMQTRAfl 

51 Saint-George Road - CHEPSTOW NP 6 5LA - ANGLETERRE -Tél. + 44 291 257 80 j ^P^J | ^|J | | ^_ W^ I W I ^^f I ■ Êt^ ^J 



EN EXCLUSIVITÉ : DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS POUR AMSTRAD - SCHNEIDER 464/664/6128 



Formatez toutes vos disquettes 3" ordinaires en 416 K octets 



TURBO 416 



(175 FF port compris) 



Le super utilitaire acclamé par la presse britannique est désormais disponible en Français 

Compatible 454, 664, 6128 

FORMATEZ les disquettes standard AMSTRAD des lecteurs ordinaires standard AMSTRAD/SCHNEIDER 

avec 208 Koctets par face : 

Pour 175,00 FF (disquette 3") vous recevez non seulement le SUPER FORMATEURTURB0416, mais aussi toute une gamme d'utilitaires inédits en France. 
Les2 faces de la disquette regorgent de programmes (en Français) jamais vus! Sélection trèssimple par menu! Quelques-unes des innombrables options: 

1. TURB0416(superformateur) 2. Archivage fichier Disc/K7 à 3000 bands 

3. Cherche de données / Fichier maximum 25 caractères ! 4. Re-transfert K7/Disc de l'option 2 

5. Cherche de données / dise - maximum 25 caractères ! 6. Transfert intégral fichiers dise/dise 

7. Générateur de menus 8. Copieur de disquettes (très, très costaud) 

9. Accélère les lecteurs de 20 % 10. Déplombeur 

11. Éditeur de CAT 12. Moniteur de disquette 

13. Éditeur de disquette 14. Listage ASCII écran/imprimante 

15. Plan d'occupation des fichiers 16. Lecteur en-téte K7 et dise 

...et bien d'autres... 

TURBO 416. le SUPER COMPENDIUM de super utilitaires en FRANÇAIS ne vaut que 175 FF port compris 

DISCOVERY PLUS 464/664/6128 

Un prodige de programmation EN FRANÇAIS. Pour ceux qui ne peuvent pas s'offrir le luxe d'une interface de transfert, DISCOVERY PLUS est la solution ! 
Transfère PLUS de programmes protégés de K7 à disquette qu'aucun autre soft ! Contient 4 programmes pour transférer : 1 . Les "Speedlock" - 2. Les 
"Sans en-tête" - 3. Les "Conventionnels" - 4. Les autres... ! Simple à utiliser ! Pas besoin de désassembleur, etc.. ! PRIX port compris : seulement 150 FF 
(disque uniquement). 

SUPER TAPE 4000 CPC 464 uniquement 

Le meilleur utilitaire de sauvegarde K7/K7 sur le marché ! Sauvegarde automatique. 10 vitesses de sauvegarde au choix ! Entièrement en FRANÇAIS. 
Cassette : 90,00 FF* - Disque : 120,00 FF (port compris). 

CADEAU ! Commandez les 3 progiciels ci-dessus et nous vous offrons gratuitement en CADEAU le superbe progiciel PRO SPRITE (LA FABRIQUE DE 
LUTINS) valant normalement 125 FF ! Créez et animez des lutins que vous intégrerez à vos programmes personnels ! Un programme de démonstration 
est indus pour vous assister. Documentation en Français. 

VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : 
DUCHET Computers - 51, Saint-George Road - CHEPSTON NP6 5LA - ANGLETERRE -Téléphone : + 44- 291 257 80 

ENVOI IMMÉDIAT LE JOUR MÊME PAR AVION dans le monde entier 
(hors Europe ajouter 10 FF par titre S.V. P. ) 

RÈGLEMENT PAR: 

"MANDAT POSTE INTERNATIONAL en francs. 

EUROCHÈQUE en livres sterling (vous faites la conversion). 

CHÈQUE BANCAIRE en livres sterling compensable en Angleterre (votre banque fait la conversion). 

Rédiger les mandats, etc.. à l'ordre de DUCHET Computers. 

Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44 291 257 80 de 8 h à 19 h. 

Ces progiciels en Français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Leur diffusion ou reproduction commerciale, même partielle, sous quelque titre ou 
forme que ce soit et par qui que ce soit est formellement interdite sans l'autorisation préalable écrite de DUCHET COMPUTERS SIREN SOFTWARE. 



MICRO ORDINATEURS - LOGICIELS - PROGICIELS 



AMSTRADESK 

Bureau pour ordinateur personnel 



• Structure rigide en tube acier de 
--section rectangulaire. 

• Large espace disponible pour les 
câbles de liaison. 

• Espaces de rangement pour cas- 
settes, disquettes et papier. 

• Equipé de 4 roulettes permettant 
un déplacement aisé. 

pour 464, 6128, 8256, MSX 



Belle finition d'ensemble. Struc- 
ture acier peinte couleur brun. 
Panneaux de particules plaqués 
teck. 

Livré en Kit (grande facilité de 
montage). 

Dimensions : 
Hauteur : 889 mm. 
Longueur : 933 mm. 
Profondeur : 610 mm. 




990T.T.C. en Importation Exclusive 







iifoi 


PI 8256 et 8512 Poste informatique 

• Structure rigide en tube acier de section rectangulaire. 

• Large espace disponible pour les câbles de liaison. 

• Espace conçu pour l'imprimante. 

• Equipé de 4 roulettes permettant un déplacement aisé. 

• Belle finition d'ensemble. Structure acier peinte couleur gris. 
Dessus bois stratifié gris. 

• Livré en Kit (grande facilité de montage). 

• Dimensions : 
Hauteur : 680 mm 

Longueur : 1 000 mm AAA ETT^ 
Profondeur : 700 mm VW ri IV 

REVENDEURS, nous consulter 




jffl 




SP1000A 



2 990 F FF 



DE PORT 



• Vitesse d'impression 100 G. P. S. bi-directionnel optimisé. 

• Friction et traction. • Guide feuille. • Introduction auto- 
matique du papier. • Qualité courrier. 



EXTENSION MEMOIRE 256 Ko - KIT POUR 8256 

Franco de port : 390 F TTC 

DISQUETTES 3" - Franco de port : 350 F par 10 



S.D.I. 



BON DE COMMANDE à retourner à 



25, route de Montargis - 89300 JOIGNY - Tél. : (16) 86.62.06.02 



Prénom ; 



Code postal : 



Nom : 

Adresse : 

Ville : 

• AMSTRADESK I ,, au prix de 940 F TTC l'unité, nombre, 

• PI 8256 r ,, au prix de 990 F TTC l'unité, nombre 

• SP 1000 A I ,, au prix de 2990 F TTC, nombre 

• Extension mémoire 256Ko pour 8256 I i , au prix de 390 F TTC l'unité, nombre. 

• Disquette 3" I ,, au prix de 350 F TTC la boîte de 10, nombre de boîte(s) 

Ci-joint, mon règlement par chèque. 

soit un total de : francs. 



CPC 17 



TRANSPARENCE, 
TAG ET INVERSION VIDÉO 



Michel ARCHAMBAULT 



Il s'agit là de commandes Basic spécifiques aux AMSTRAD 
CPC ; pratiques, spectaculaires, mais aussi avec quelques piè- 
ges qui, bien sûr, ne sont pas mentionnés dans le manuel 
d'origine. Afin de les comprendre facilement et de les "avoir en 
main", rien de tel qu'un petit programme de démonstration, dont 
vous pouvez vous inspirer pour augmenter la présentation de vos 
programmes. 



LA TRANSPARENCE 

{Lignes 30 à 140 + 2000 à 2070) 

Chaque caractère affiché à l'écran est en 
fait un petit "pavé" carré de 16x16 
pixeJs ( =s point d'écran), qu'i| s'agisse du 
A, du point ou de l'espace "blanc". De 
ce fait, si l'on superpose un caractère sur 
un autre, le premier en date disparaît 
complètement. 

Avec la commande "Transparence", le 
fond (couleur PAPER) du second carac- 
tère n'efface pas le premier caractère. Il 
V a alors superposition des deux motifs. 
La commande est PRINT CHR$(22); 
CHR$(1 ) et, pour l'annuler, c'est PRINT 
CHR$(22);CHR$(0). 
Comme cette écriture est lourde, 
codifions-la par T1 $ et T0S. Voir lignes 
40 et 50. 

Pour notre démonstration, nous utilisons 
une ligne de vingt-cinq "O", une ligne de 
cinq " + " et une autre de cinq " - " (par 
SHIFT 9). Remarquez au passage 
comme l'instruction STRING$ est prati- 
que ! (lignes 60 à 90). La ligne 90 défi- 
nit PS comme étant une suite de vingt- 
cinq "pavés curseur", dont le code 
ASCII est 143. Donc, le second paramè- 
tre de STRINGS peut-être indifférem- 
ment le code ASCII ou le caractère mis 
entre guillemets. 

En faisant RUN, vous visualisez les deux 
effets, avec; et sans transparence. 
Remarquez au passage l'effet obtenu en 
superposant un "O" et un slash ("/"). 



Le Piège 

La grande gaffe classique consiste à 
oublier d'annuler la transparence sitôt 
que l'on n'en a plus besoin (remarquez 
notre PRINT T0$ en bout de la ligne 
1 1 0). Sans cela, la transparence restera 



active, même si vous quittez votre pro- 
gramme! Essayez donc de modifier une 
ligne avec la touche COPY sous trans- 
parence, et vous verrez le désastre à 
l'écran... Un horrible gribouillis absolu- 
ment illisible ! 

TAG ET TAGOFF 
(Lignes 200 à 340) 

Lorsque l'on écrit une chaîne par 
LOCATE, on est limité à 25 positions ver- 
ticales et 40 positions horizontales 
(MODE 1), bien fixes. Avec TAG, on 
peut commencer l'écriture absolument 
n'importe où, le départ étant le curseur 
graphique, fixé par exemple par PLOT 
523,129,1. Ce troisième paramètre est 
la couleur de ce qui va être écrit par 
PRINT ; un PRINT sous TAG oublie tota- 
lement le PEN en cours ! 
Très important : le point curseur graphi- 
que se trouve en haut à gauche du 
"pavé carré" du premier caractère de la 
chaîne. Après ce PRINT sous TAG, le 
curseur graphique se trouve alors en haut 
à gauche du pavé qui suit le dernier 
caractère de la chaîne. Un exemple : 

PLOT 423,1 29,3:TAG:PRINT 
"AMSTRAD";:TAGOFF 

Le curseur graphique se trouve en final 
en haut à droite du "D" d'AMSTRAD 
(écrit en rouge). La preuve, faisons sui- 
vre par PRINT XPOS;YPOS - réponse : 
535 129. TAGOFF est bien sûr l'annu- 
lation de TAG, à mettre tout de suite 
après usage, sinon vous ne pourrez plus 
écrire par des PRINT normaux, même 
avec un LOCATE ! 

Super-important : Mettez toujours un 
point-virgule à la suite de la chaîne à 
écrire sous AG, sinon, à la suite du mot. 



vous aurez droit à deux caractères gra- 
phiques assez bizarres : une flèche cou- 
dée qui est le symbole de "CR" (Carriage 
Retum) ou CHR$(13), suivie d'une flè- 
che vers le bas, symbole de "LF" (Line 
Feed) ou CHR$(10). 

Après ces préambules, revenons à notre 
programme de démonstration. 
On le met à la fois en transparence et en 
TAG pour afficher notre ligne de 25 "O", 
en jaune (lignes 210 à 220). TAGOFF, 
et par LOCATE banal cette même chaîne 
en rouge (ligne 240). On constate que 
la transparence joue et que ces "0" rou- 
ges s'entrelacent avec les "O" jaunes. 
Retour en TAG, on descend le curseur 
graphique et on affiche "MM" (lignes 
250-260). Oh, surprise ! Ces "I" ont 
effacé en partie nos "O" rouges. Véri- 
fions que la transparence n'est pas annu- 
lée, ligne 270, après un TAGOFF, affi- 
chons quatre "O" bleus sur nos "O" 
rouges, mais par un LOCATE banal" : la 
transparence est toujours active. Conclu- 
sion : la transparence est inactive avec 
un PRINT sous TAG. 

TAG APRES UN DRAW 
(Lignes 400 à 490) 

Nous allons entrecroiser des traits verti- 
caux fins (par DRAW) et des barres hori- 
zontales (P$), avec ou sans transpa- 
rence. En bout, on marque "T1" ou 
"TO" (-avec ou sans transparence). 
Dans l'ordre, on fait : 

— une barre TO ; 

— un trait bleu TO : le trait apparaît sur 
la barre, le TO du trait rogne la barre ; nor- 
mal ; 

— une barre T1 : elle "recouvre" le trait 
bleu ; 

— un trait rouge T1 : trace sur les deux 






barres ; le "T1" rogne la barre (pas de 
transparence en TAG) ; 

— un second trait rouge T1 mais plus 
court, le "T1" est recentré par un 
MOVER (ligne-440) ; 

— deux secondes de pause (ligne 450) ; 

— une barre TO ; 

— une barre T1 : toutes deux recouvrent 
les trois traits ; 

— en bas d'écran, une chaîne en trans- 
parence "transparence ou non, le dernier 
recouvre" (c'est la conclusion) : carac- 
tères et traits font bon ménage ; 

— plus bas encore, un message sans 
transparence "tapez une touche" ; un 
trait est localement effacé. 
Expliquons le MOVER - 1 6,1 8 de la ligne 
440 : nous avons dit que chaque carac 
tère fait 16x16 points graphiques en 
MODE 1 (32 x 1 6 en MODE 0, 8 x 1 6 en 
MODE 2), et nous voulons centrer les 
deux caractères de "T1" au-dessus du 
trait. 

Il faut donc déplacer le curseur de 1 6 
points à gauche (-16) et le remonter 
d'au moins 1 6, plus deux de séparation, 
d'où un MOVER -16,18. Un PLOTR 

— 16,18 aurait eu le même effet. 
Rappels : Le R final de DRAWR, PLOTR, 
MOVER signifie "RELATIF". La diffé- 
rence entre PLOTR et MOVER est que 
PLOTR trace le point, tandis que MOVER 
se contente de déplacer le curseur sans 
le marquer à l'écran. Pour un PRINT sous 
TAG, c'ast sans importance puisque si 
le point est marqué, il sera aussitôt 
effacé par le "pavé" du premier carac- 
tère. 



L'ECRITURE NON LINEAIRE 
(Lignes 500 à 590) 

Nous allons écrire une chaîne en demi- 
cercle ! Le principe est simple : on va 
faire des PLOT sur un demi cercle, et en 
TAG, on y affiche les caractères de la 
phrase, les uns après les autres. 
On va même faire mieux : on change de 
couleur à chaque lettre ( 1 , 2, 3, 1 , 2, 3, 
etc.). L'effet est assez spectaculaire. 
Par défaut, l'ORIGIN graphique est située 
en 0,0 (coin en bas à gauche). En ligne 
5 1 0, on la met à mi-largeur en la remon- 
tant un peu. 

Le tracé va se faire selon un angle variant 
de 1 80 à degrés, mais nos PLOT vont 
aller de 1 72 à 5° car il faut tenir compte 
de la hauteur de la première et de la der- 
nière lettre. 
Ligne 534, on calcule l'angle DA entre 



deux caractères. Dans une boucle FOR 
NEXT, on pointe le PLOT de couleur E ; 
sous TAG, on prélève le caractère sui- 
vant dans la chaîne à écrire (ligne 560), 
en incrémentant E de +1 et en le limi- 
tant entre 1 et 3. 

En fin de tracé, on n'oublie pas en ligne 
580 de tout remettre en ordre (pensez- 
Y-'). 

Nous avons pris le cas du demi-cercle, 
mais la même technique par TAG .est 
applicable pour écrire en diagonale, en 
ligne brisée ou horizontalement (ou ver- 
ticalement), mais avec un intervalle inha- 
bituel entre chaque lettre. 



MOT EN EVIDENCE 
(Lignes 600 à 690) 

Pour attirer l'attention sur un mot à 
l'écran, les méthodes ne manquent pas ! 
La plus simple est la transition minuscu- 
les/majuscules, mais on peut aussi chan- 
ger de PEN (ligne 620), fabriquer un PEN 
clignotant (ligne 630). Ici, c'est INK2 qui 
alterne entre mauve et vert vif. On ralen- 
tit la vitesse d'origine par SPEED INK 
15,15, c'est-à-dire durée mauve=15, 
durée vert = 1 5 (en 1 /50 e de seconde). 
Essayez aussi : 

630 INK 2,24,1 ;SPEED INK 15,10 

C'est une alternance jaune ( = PEN1), 
marine ( = PAPER), plus long en jaune 
qu'en bleu. 

L'inversion vidéo ( = échange PAPER/ 
PEN) s'obtient par PRINT CHR$(24), 
appelons cette longueur IV$ (ligne 610). 
La ligne 650 est alors facile à écrire... 
On peut combiner l'inversion vidéo avec 
le flashing (ligne 660} : seul le fond cli- 
gnote. 

Enfin, on peut changer simultanément 
PAPER et PEN (ligne 670). 
Des questions de (bon) goût, et d'origi- 
nalité... 

L'inversion vidéo se met et s'annule par 
CHR$(24). 



MENUS DESCENDANTS 
(Lignes 700 à 820) 

C'est une application de l'inversion 
vidéo, où vous allez retrouver une cer- 
taine présentation de menus propres à 
des logiciels de qualité. Les différentes 
options sont présentées, mais une seule 
est en inversion vidéo. Une action sur la 



barre d'espacement, et c'est la ligne au- 
dessous qui est en inversion. Une action 
sur ENTER et cette option est exécutée. 
C'est une question d'incrémentation ver- 
ticale. A chaque descente, l'option pré- 
cédente est ré-écrite sans inversion. En 
bas de liste, on repart sur la ligne du 
haut. Spectaculaire et pas sorcier... 



MENUS DEROULANTS 
(Lignes 900 à 1030) 

Variante de ce qui précède.' Cette 
méthode est utilisée lorsque l'on manque 
de place à l'écran. Dans une fenêtre 
(WINDOWS 1 ) étroite, ici trois lignes, on 
fait défiler un menu "déroulant" (sans 
fin). La ligne du milieu est en inversion 
vidéo, elle est donc fixe. A chaque pres- 
sion sur une touche, les options défilent 
une à une. ENTER fait exécuter l'option 
en inversion vidéo. Le CHR$(18) de la 
ligne 910 efface ce qui est à droite du 
curseur. 

La "nervosité" de ces deux menus 
étonne lorsque l'on sait que c'est pour- 
tant du 100 % Basic. 

NOTE SUR WINDOW : Lorsque l'on crée 
un WINDOW, il faut d'abord y faire un 
CLS# (Iigne910). La ligne 1020 efface 
WINDOWS 1. 



FAISONS LE BILAN 

Au cours de ces petits programmes de 
démonstration, l'auteur en a profité pour 
illustrer des fonctions Basic de l'AMS- 
TRAD que certains d'entre vous ne 
connaissent "que de nom", voire pas du 
tout. Nous en faisons la liste, suivie du 
numéro de ligne où elles apparaissent : 
CHR${22)(40), STRING$(60,90), CALL 
&BB06040), TAG(210), TAGOFF(230), 
PLOTR(250), DRAWR{420), MOVER 
(440), DEG(510), ORIGIN(510), 
CHR$(24)(610), SPEED INK(630), 
WHILE/WEND{770), ON... GOTO(820), 
WINDOWO10), CHR1(18)(910). 
Il est toujours profitable d'enrichir son 
vocabulaire... 



10 TRANSPARENCE, TAG, INVERSION VIDEO 

20 'AMSTRAD CPC /Michel ARCHAMBAULT /86 

30 MODE l.-CLS 

40 Tlt=CHR$<22ï+CHR*U) 

50 T0*=CHR$\22)+CHR$(0> 

60 A$=BTRÏNG$C25,"Q") 

70 C*=STRING*(5, " + "i 

80 LS^STRINGSCS,".^) 

90 P*=STRING$(25, 143) 

100 LOCATE 5,2:PRINT "SUPERPOSITION avec 



TRANSPARENCE : " 
110 H=5:PRINT Tî$:G0SUB 2000:PRINT 70$ 
120 LOCATE 10,12;PRINT "idem , SANS Tran 
parence : IÈ 
130 H=15:GÛSUB 2000 
140 LOCATE 13, 25: PRINT ''Tapez une Touche 

..." : CALL &BB06 
j99 

200 ' SUPERPOSITIONS PAR TAG" 



38 



39 



210 CLS .-PRINT T1*:TAG 

220 PLOT 36,390, 1:PRI NT ft$; ■ 

230 TAGDFF 

240 PEN 3: LOCATE 7, 2: PRINT A* 

250 TAGiPLOTR 0,-14,2 

260 PRINT " III 1";: TAGDFF 

270 PEN 2: LOCATE 1,1:PRINT "0000" 

280 PRINT TOSiPEN 1 

290 PEN 1: LOCATE 13,10:PRINT "PLACE PAR 

TAG" 

300 PEN 3:L0CATE 13, 12: PRINT "PLACE PAR 

LOCATE" 

310 PEN 2: LOCATE 13, 14: PRINT " II 1 1 PAR T 

AG " 

320 LOCATE 13, 16: PRINT "DODO PAR LOCATE" 

330 PEN 1: LOCATE 4, 19: PRINT "DONC EN TA6 

, PAS DE TRANSPARENCE" 
340 LOCATE 13,25:F'RINT "Tapez une Touche 

. . . ":CALL M3B06 

399 ' 

400 * AVEC LES LIGNES 

410 CLS:LOCATE 3,3:PRINT P*; " TO" 
420 PLOT 50,0,2:DRAWR 0, 375: TAS: PRINT "T 
0";: TAGOFF 

430 PRINT Tl*: LOCATE 3, 7: PRINT P*; " Tl": 
TAG 

440 PLÛT 15ù,u,3:DRAl'JR 0,375: F RI NT "Tl"; 
iPLOT 250,0:DRAWR 0,247:M0VER -16,18:PRI 
NT "Tl"; : TAGOFF 
450 FOR 1=1 TO 2000: NEXT , 
460 LOCATE 3,11:PRINT Pïi" Tl": PRINT TO* 
470 LOCATE 3,15:PRINT F*;" TO":PRINT Tl* 
480 LOCATE 1 , 20: PRINT "Transparence ou no 
n,Ie dernier recouvre. ": PRINT 10$' 
490 LOCATE 13, 24: PRINT "Tapez une Touche 
..." : CALL &BB06 

500 ' ECRITURE CIRCULAIRE PAR TAG 
510 CLS:DEQ:ORIGIN 320, 30: TAG: 1 = 1 : E = i 
520 T*="ECRITURE CIRCULAIRE PAR TAG" 
530 DA=172/LEN(TS> 
540 FOR A=172 TO 5 S'Ï'EP -DA 
550 PLOT COS(Ai*300,BIN(A)*300,E 
560 PRINT MID*(T*. I, 1/ ;: 1 = 1 + 1 : E=E+! : IF E 
=4 THEN E=l 
570 NEXT 

580 ORIGIN 0,0: TAGOFF: PEN 1 
590 LOCATE 13,25:PRINT "Tapez une Touche 
..." : CALL ?<BB06 

600 MOTS IMPORTANTS 

610 CLS: IV$=CHR*(24) : LOCATE 2,3:PRINT "P 
our attirer 1 ATTENTION sur un mot:" 
620 LOCATE 2,9:PRINT "On peut changer la 
";:PEN 3: PRINT "couleur " : : PEN 1 : PRINT"d 
u mot. " 

630 INK 2,8,18:SPEED INK '15, 15 
640 LOCATE 10, 12: PRINT" le mettre en ";:F 
EN 2: PRINT "Flash. "s PEN 1 



40 



650 LOCATE 10,15:PRINT "utiliser 1"';IV* 

s "inversion" ; IV*; " video." 

660 LOCATE 10,18:PEN 2:PRINT IV.*) "comb in 

er";IV*;;PEN 1: PRINT " -flash et inversio 

n. " 

470 LOCATE 10,21:PRINT "comb iner " ; : PAPER 

3:PEN 2:PRINT " pen " ; : PEN 1:PRINT "et 
paper. ": RAPER 
680 LOCATE 13, 25: PRINT "Tapez .une Touche 

..." : CALL &ËB06 
690 INK 2,20:SPEED INK 10, 10 

700 ' MENUS DESCENDANTS 

'710 DATA "Superposition de Lettres" , "Etf 

et de TAG", "Lignes et TAG" 

720 DATA "Ecriture c 1 rcuial re" , "Mots en 

Evidence", Quitter 

730 RESTORE 710: FOR 1 = 1 TO 6:READ X* ! I i : 

NEXT: H=l: CLS 

740 PEN 3: LOCATE 13, 3: PRINT "MENU DESCEN 

DANT":PEN 2: LOCATE 7,24:PRINT "Choix par 

SPACE puis ENTER": PEN 1 
750 FOR 1=1 TO 6: LOCATE 10, 5+1*2: PRINT X 
*i Ii:NEXT 
760 LOCATE 9, 5+H*2: PRINT IV*;" ";X*(H;;" 

"; IV* 
770 R*="":WHILE R*=" " : R*=INKEr«: WEND 
780 IF R*=CHR*(13> THEN 820 
790 V=H:H=H+1:IF H=7 THEN H=l 
800 LOCATE 9,5+V*2:PRINT " ";X*(V!;" " 
810 GOTO 760 
820 ON H GOTO 10,200,400,500,600,900 

899 ■ 

900 MENU' DEROULANT 

910 CLS:WINDOW #1 , 6, 33, 1 i , 13:PAPER#1 ,2:P 

EN#l,0:CLS#l:H=i:E*=CHR*(18) 

920 LOCATE 13, 3: PRINT "MENU DEROULANT" 

930 IF H=7 THEN H=l 

940 LOCATE ttl , 3, 1 : PRINT #l,X*i.H);E* 

950 C=H+1: IF C=7 THEN C=l 

960 LOCATE #1,2,2:PRINT #1,IV*;" ";X*(C> 

;" ";IV*;E* 

970 D=C+1:IF D=7 THEN D=l 

980 LOCATE #1 , 3, 3: PRINT #1,X*ID);E$ 

990 R*="":WHILE R*=" " : R*=INKE¥*: WEND 

1000 IF R*OCHR*(13) THEN H=H+1:G0TD 930 

1010 ON C GOTO 10,200,400,500,600,1020 

1020 WINDOW#0, 1,40, 1,25: CLS 

1030 END 

2000 ' SUPERPOSITION DE CARACTERES 

2010 LOCATE 9, H: PRINT A* 

2020 LOCATE 11, H: PRINT "/":PEN 3 

2030 LOCATE 13, H: PRINT C* 

2040 LOCATE 23, H: PRINT L*:PEN 1 

2050 LOCATE 9,H+2:FRIN"T P* 

2060 LOCATE 13,H+2:PEN 3: PRINT C*:PEN 1 

2070 RETURN 

2080 ' FIN DE LISTING — 
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?C0 00 

139 00 
129 00 

140 00 
120 00 
139 00 
160 00 
'80 DO 
110 00 



123,00 

i/9 00 
140,00 

139 00 
99 00 

192 00 
120 00 



«LOGICIELS SUR CASSETTE! 

MACAOAM BUMPER HO 00 

PANZADROME 129 00 

BATMAN 1 ?9 00 

SAMANTHAFDX 120 00 

OPDIDACTIC 229 00 

CARTF D'EUROPE 

DAMBUSTER 

BOMBJACK 

PACIFIC 

BLADE RUNNER 

GOLIATH 

COMPUTER HITS (10 'JEUX] 

L'AIGLE D'OR 

yOui.DLRDASHIII 

MERCENAIRE 

STRIKE FORCF HARRIER 

GRÊEfJ BERET 

■;A\VK 

LiHOS'S NG08LINS 

SAPIENS 

GHOLOMITSCULUX] 

F.TCTRICWONDEHLAND 

CASSFIT'FDEFjOJEUX 

CAULDRON II 

SA I COMBAT 

REVERSl CHAMPION 

XENON 

ROOM TEN ■ 

BIGGLES 139 00 

1 40 00 
120 00 
139 00 
130 00 

139 00 

140 00 
140,00 

120 00 
150.00 
120,00 
129 013 
120 00 
129 00 
760 00 
129 00 
160,00 
160,00 
uy oo 
340 oo 
140 00 
150.00 
128,00 
'/b oc 
140 00 
139 00 
159,00 
139 00 
139 00 
129 00 
150,00 
139 00 
130,00 
220 00 
129 00 
59 00 



KLAGFU MASTFR 
STARSTRIK IL 
DESERT FOX 
MISSION ELEVATOR 
AMELIE MINUIT 
TOBRUK 
CAULDRON 

GRAND PRIX 500 CC 
REACTIVATOR 
SUL0MILLI0N(4JEUX) 
GYROSCOPE 
SPITFIRE40 

0-ïiHU:,JS:6CASSt" T EJ 
.10 GRAND PRIX 
AFFAIRE SYDNEY 
SOLO A MILLION III 
ÎjCI-E-.SiCYRUSIl) 
REVISION MATHS NIV 
EDEN BLUES 
BACTRON 
GALVAN 

V-\P.\' TRANS CAS DISC 
CRAFION &XUNK 
WH0 0ARESWIN5II 
JAMES DEBUG 
RAMBO 

FIGHTINGWARRiOR 
DUNDARACH 
MOMIE BLUES 
MICRO GEO 
LIGHT FORCE 
MEURTRE/L'ATlAN-iOLIL 
LES PORTES OU DESTIN 
SPELLBOUfJD 
PING PONG 



BAC 



IHEAIRF EUROPE 
BOULOERDASH 
SPINDIZZY 
CHUCKIE EGG 2 

WAYOFTHETIGER 

■LOGICIELS SUR 

BRIDGE (français) 

SAI COMBAT 
TOP SECRET 
LE PACTE JEUXi 

HIV! MSI CHAMPION 

GEOGRAPHIE 

L'ANIMALIER 

RODEO 

FRANCE CEO 

2 TH. EIDOLON 

ELITE VER FRANÇAISE 

i.AJI liH'IN -*ir* 

NEXUS 

MISSION ELEVATOR 

N E XO R 

PACK JIL 

SAPIENS 

TENSION 

ONE 

WIZARDS LAIR 

GRAND PRIX 500 CC 

THfv soi D MILLION 

TRIVIA 

BALADE AU PAYS Bl!, I1FN 

XARQ 

MGHWAV EKCOUNTER 

BATAILLE D ANGLETERRE 

FIGHTERPILOT 

FIG WARRIOR&EXPL FIST 

AFFAIRE SYDNEY 

\ <■:■■? -A -ACKOJEUXl 

LIGHT FORCE 

LE RESQUILLEUR 

FU KONG IN LAS VEGAS 

MEURTRE/L A r | AM OUF 

BACTRON 

TQRNADO LOW LEVEL 

MARACAIBO 

ORTHOGUS 

WHODARESWINSIi 

■JO ChESS ICVRUS ll r 

EDEN BLUES 

CrH\r:.:N&xUNK 

MGT 

i'vHRNAI RUNNER 

L AFFAIRt VI FIALR:.!,' 

S0RCERY + 

GALWAN 

WINTERGAMES 

GREEN BERET 

ZOMBI 

LES 4 SAISONS 

EOUINOX 

SABOTEUR 

ERE DU VERSEAU 

MACADAM BUMPER 

TOBRUK 

SRAM 

BALAOE PAYS OE.BlG BEN 



140 00 
130 00 
129 00 
129 00 
1?9 00 

DISQUETTE! 

300,00 

139 00 
240.00 
220.00 

?00 00 

200 00 



18i 



195,00 
180.00 
200,00 
279,00 



220 00 
169 00 
225 OJ 

210,00 
190 00 

165,00 
159 00 
159 00 
290 00 

180.00 
169 00 

180,00 

"825 00 
180 00 
159 00 
?2QÛ0 

■m, m 



'75 00 

??o. ne 

179 00 

169 00 



139 00 
' '.•■; OC 

200,00 
129 00 
175 00 

169.00 
220 00 

.•■no no 
■m oo 

1B0 00 



/■■c oo 
■ii:i on 







■T^'AMINATIÛN 

INFFRNA! RUNNER 

LE 5' AXE 

NUMERUS 

PLANETE BA5E 

SOLDE WLLION? 

TURBO ESPRIT 

LE SECRET DU TOMBEAU 

COMMANDO 

SIRIK; FORCF HARRIER 

IKARY WARRIORS 

; FFA1RE EUROPE 

POUVOIR 

RALLYE II 

SPITFIRE40 

HiCHWAYENCOUNTER? 

WAYOF THE TIGER 

SOLD MIL LION M 

CON'AMiNATION 

PACIFIC 

DRUID 

PING PONG 

TAUCEUlED SPECIALE) 

TOMAHAWK 

BOMBJACK 

ATTENTAT 

L AIGLEOOR 

BATMAN 

COMMANDO 

TANK COMMANDER 

STAROUAKE 

I HERITAGE 



■LOGICIELS PROFESSIONNELS! 
ET UTILITAIRES 

FACTURATION STANOARO 
FACT CAISSE DETAIL 
■:;:"M-'!aB!L:tealiENOR 
FACT GESliD.NSlQCK 
IASWORDCPC612B 
DB COMPILER 
L EXPERT CPC (il 28 4 PCW 
TECTOMAT 
DATAMAT 
TURBO PASCAL 
HJRP.i.! niTOR 
ODMPIAB'I IL CENTRAI t 
DEVIS ET TRAVAUX ■ 
CALCUMAT 
FICHE TCAIC7PCW 
IJRBO-ASCAI SUR PCW 
ACT1 |PCW) 

DEVISFTSIUIA'KÎNSPCW 
V DO S VER 13 
MULTIPLANPCWCPCGI28 
DBASE M PCWCPC6128 
GÉNÉRATEUR D'APPLICATION 
dBASE II 
DBASE H ININAHON 
? : r-/\U N'OVING CPC 
POCKET WORDSIAR CPC PCW 
! ASF H COMPLILEUR 
LASER BASIC 
DISCOLOGY 

MINITELEC - émulateur cou 
par modem Digitelec 
TRANSMITELEC 
Emettez vos fichiers par modem Digitelec 



i.ôO X 
= :-,!} 00 
790 00 
^90 00 
■■1M 00 
450 00 
711 00 



230,00 
250 00 



280.00 
225,00 




BON A DECOUPER CPC V 



Désignation 



Quantité 



LIBELLEZ VOS CHEQUES 
A L'ORDRE DE MOVE 



(Logiciels) Frais de port 30 F. 

(Matériel) Frais de port 70 F. 

TOTAL TTC 



MATHS 5EC0N0CYCLE 
FO.IAI OMSNIV 3' 2' 
COi.HSOE BASIC 
rOCKET BASE 
LASER GENIUS 
PRiNTERPACK ? 
TRANSI OCK 

AUTO F AL ASSFMBIfuR 
C-DiSC 



FIDO 
TRANSMAT 
PRlNTERPACKI 
HERCULE 

ZEDISn 
LORICRAPH 



240 00 
200 00 
200 00 
170 00 
250,00 
159 08 
:;c;;i :;o 



MASTERFILE III pour 6128 450,00 

1MATERIEL ET PERIPHERIQUES! 

AMSTRAD CPC 464 2690-W-T 

AM5TRAS cpc 454 owe-wr 

AMSTHADCPC612I 39SS-DST 

AMSTBAO CPC 6128 52m-mr 

DISQUETTES 3 POUCES 80 DO F PCW 

DISGUETTES 3 POUCES CF ■ 200 POUR LE 2' 

IECTEUH PCW 8256/8512 

LECTEUR 5 POUCES 1/4 2499 00 F CPC 

LECTEUR 5 POUCES 1/4 VORTCX OFFRANT 

L ACCES DIRECT ET 708 Ko UTH ISATEUH SOUS 

' AM SOOS 



LECTEURS POUCES 1/4P E F Z2B9 00 F CPC 

IFCIHJfi S PÛUCfS '-A AVtC NV[RS.[i.:!i ;:[ 

PI5TE ■■0-1" FOURNI AVEC UNE AIIMFNTA- 

:"-, M:\T !!!■ CF N:jV '^-JàiL'l. L_AIJ! '■'■■ 



2 e LECTEUR 1 Mo 1990 00 F PCW 

LECTEUR SUPPLEMENTAIRE POUR PCW B256 
OFFRANT 7^0 Ki: i-CRMAITS lil CAPACITE 
DRIVE DDI1 (CPC 4G4) 1990 00 F CPC 

LECTEUR DE rcSÛUF"1FS AVFC CONTROLEUR 
■ i.JMFR^.AM .! SvS l: Wl AMSDOSFI CPM ? 
DRIVE FD1 2< LEC. 1690 00 F CPC 

2' UNITE DF DiSlJliFU-S [lUUBI.FZ LA CAPA- 
CITE DE STOCKAt F Si.i-i jiSGUETTE POUR 
4Ë4 + DOI1 664 - 6128 
EPSON LX-BO 2990 00 F CPC 

L EPSON LX-SO EST I IMPRIMANTE LA PLUS 
VENDUE POUR LES CPC TOUS LES LOG'CIELS 
ASSURENT (A COMPATIBM ITF GRAPHlOUE ET 
TEXTE 
EXTENTION SP (28 Ko 786 DO F CPC 

vop:fï vins au srcoiiHS :sis «nssbs 

SEURS DE L'AMSTRAD 464 DESIRANT UTIL ISER 

DES IOGICIELS PROS ' EX MULTIPLAN. 

DBASE II 

EXTENTION SP 256 Ko 944 00 F CPC 

EXTENTION MFMOIRI- Oj ?% Kii VORTFX P.i.lR 

CPC 464 

EXTENTION SP 512 Ko 1261 DO F CPC 

F X T t N 1 1 L ) M MtMÛlRt m !:l? Ho VOHIF* PO'.IR 

CPC 464 

EXTENTION SP 64 Ko $27 00 F CPC 

EXTENTION MEMOIRE DE 64 Ko VORTEX POUR 

CPC 464 

GRAPHPAD 1125 00 FCPC 

TABLETTE GRAPHlOUE OUI VA VOUS DONNER 

.A P; USGPAMI.iF -iAni-r-Ai.: ;irg POUR METTRE 

EN APPLICATION VOS DONS DE GRAPHISTE 




J 




Ce court programme fonctionnant sur ia 
gamme CPC (464, 664, 61281 permet de 
démontrer qu'il est possible de réaliser 
certains effets spéciaux lors de l'affi- 
chage d'images à i 'écran. 
Avant tout, il est nécessaire d'effectuer 
un RESET de l'ordinateur (après sauve- 
garde bien entendu). 
Le programme demande alors le mode 
d'affichage sous lequel l'image a été 
créée. Ensuite, entrez le nom de l'image, 
sans le suffixe .BIN. 
Le programme s'occupe alors de charger 
celle-ci et de la transformer en &4000. 
Il suffit de presser une touche pour que 
l'image s'affiche enfin derrière des 
vagues de points. 

Les couleurs de l'image peuvent être à 
tout moment redéfinies en ligne 670, 
680 et 690. Vous pourrez sans peine 
inclure dans vos propres programmes 
cette routine qui affichera de manière ori- 
ginale vos écrans de présentation. 



Eric WANNIN 




10C 


RËM ** *-?-**-*** ****** ******* 


tic 


REH * EFFETS * 


12C 


REM * par ERIC WANNÏM * 


13C 


REM * COPYRIGHT 1986 * 


140 


REM * CPC et L'AUTEUR * 


1SC 


REM *##£#*******#*-*##*#** 



18' 



24C 
25C 



FOR rx«*130 TQ MSB 

mm ftSUFORE î%,m 

NEXT IX 

FUR I%=&A000 TQ &A02? 

READ AXfPOKE rX,A* 

NEXT IX 

CALL &A00O 

FUR I7.»&8O00 TO &8034 

READ A7.:P0KE IX. fi 7. 

NEXT IX 

DAT A &21 , &00 , &00 ,H1, Mû , MM , itO 1 , MO 

DATA 400,&ED,SiBO, &C9. 

DATA S<01,&09,S(HO,!i21,S<13,&AO,S!C3,ï!iDl 

DATA &BC, &OE, &A0, &C3, M?, MO, S<44, MF 

DATA &4B, 5'C5 , SiûO , StOO , MO , !<00 , MO , &FE 

DATA &02, iC0,&DD, ï(66, &03, &DD, &6E, â02 

DA l'A !<DD , ?(5&, Ml , mu, &5E, «>0, &73 , !<23 



350 DATA &21,M0,Î<C0,?<ED,Î75F,Î<77,8<23,&7C 
360 DATA :iB7,&20 ) ï 1 F8,S < OE,!;OA,8<21,.S<O0,8iC0 
370 DATA «,ll,M0,MO,îaA,&BE,S<28,s < 13,M7 
380 DATA &7E,&30,M6,àC6,&32,ïi30,S0A,ï!i8 
390 DATA £ ! 04,&C6,!<32,î(38,! 4 03,?<B8,8 i 38,ï i 01 
400 DATA &78,&77,&13,&23,S7/C,&B7,!<20,&E3 
410 DATA fcOD,&C2|fcGD,fc80,ftC9 

430 !DDKE,M51,&C000: ' ANCIENNE ADRESSE 

DE. L'IMAGE 

440 iDni<E,M54,?<400ùi ' NOUVELLE ADRESSE 

DE L' IMAGE 

450 !DUKE,!<157,Ï<4000: LONGUEUR DU FICHI 

IMAGE 
460 ' 

470 MODE 2: INK 0,26: INK 1,0:PAPER 0:PEN 
1: BORDER 26 

480 PRÏNT"*** VIDEO EFFECT 1 ***":PRINT 
490 INPUT"MODË DE L'IMAGE A AFFICHER (0, 
1,2) ";MÛ* 

500 IF Mûï="" THEN 470 
510 IF ASC (MOt) < 48 OR ASC!MO$)>50 THEN 4 

520 M0X=VAL;MD$) 

530 LOCATE 1,5 

540 INPUT"N0M DE L'IMAGE A CHARGER " ; NOM 

550 IF LEN<N0M*>U OR LENlN0M*)>8 THEN L 

OCATE 1,5:PRINT SPACES C&50 > : GOTO 530 

560 MODE MOX 

565 MÛX=f!0/.+ l 

570 ON MOX GOTO 580,590,600 

580 FUR IX=0 TU 1:INK IX, 0; NEXT: GOTO 620 

590 FOR IX=0 TO 3: INK IX, 0: NEXT: GOTO 620 

600 FOR IV.=0 Tu 15: INK IX,o:NEXT 

610 ' 

620 LQAD NOMÏ.&COOO: ' CHARGE L'IMAGE A L 

'ECRAN 

630 CALL JtlSOj ' RELOGE L'IMAGE EN 

&4000 
640 ' 
650 CLS 

660 ON MOX GOTO 670,680,690 
670 INK 0,0: INK 1,26: GOTO 700 
680 INK 0,0: INK 1,26: INK 2,6: INK 3,13:60 
TO 700 
690 INK 0,0:INK 1,26: INK 2,1:INK 3,2:INK 

4, 4: INK 5, 6: INK 6,8: INK 7, 10: INK 8,12:1 
NK 9, 14: INK 10, 16: INK 11, 18; INK 12,20: IN 
K 13,22: INK 14,24: INK 15,15 
700 LOCATE 1 , 25: PRINT"PRESSEZ UNE TOUCHE 



710 CALL âBBOà 

720 ' 

730 CALL &8Û00: 

EC EFFET 

740 CALL &BB06 

750 END» 



AFFICHE L IMAGE ftV 



Vous avez un AMSTRAD, 
Vous avez un MINITEL, 





avec LE LOGICIEL JMN SERIE version 2* 

et son CÂBLE SPÉCIAL DE RACCORDEMENT, pour : 

1 — ENREGISTRER IMPRIMER et ARCHIVER toutes les informations accessibles par minitel, quelles que soient leurs sources. 

2 - Rechercher un fournisseur, ou de nouveaux clients, en ÉDITANT VOS ÉTIQUETTES-ADRESSES DIRECTEMENT A PARTIR 
DE LANNUAIRE ÉLECTRONIQUE. 

3 — RÉDUIRE VOS TEMPS, donc vos COÛTS DE CONSULTATIONS : Sitôt affiché, un écran minitel est enregistré ! (Quelle économie 
quand vous consultez le 36.15 ou des Banques de Données Professionnelles...). 

4 — COMMUNIQUER avec un AMSTRAD distant par le RÉSEAU TÉLÉPHONIQUE, sans modem spécialisé : échanges de fichiers, 
de programmes, de courriers... {à une vitesse nominale de 120 caractères par seconde dans les 2 sens). 

5 _ Transformer tout fichier reçu en code VIDEOTEX en fichier ASCII, compatible avec vos autres logiciels standards : locoscript, DBase... 

(Ce logiciel nécessite une interface Série dAmstrad). 

* Le logiciel JMN SÉRIE, recensé dans le RÉPERTOIRE DES PÉRIPHÉRIQUES pour MINITEL, édité en avril 1986 par IADMINISTRATION 
DES TÉLÉCOMMUNICATIONS, est disponible dans sa version 2 pour AMSTRAD. Une version compatible PC (pour AMSTRAD 
PC 1512), permet en plus des autres fonctions l'enregistrement automatique de l'annuaire électronique, avec recherche automatique des 
codes postaux (nous consulter). 

avec LE LOGICIEL JMN SERVEUR monovoie version 2** 

et son CÂBLE SPÉCIAL DE RACCORDEMENT, pour : 

1 — CRÉER votre APPLICATION SERVEUR : 8 couleurs, 4 tailles de caractères, graphisme plein ou mosaïque, soulignement, 
clignotement, inversion, enchaînements, mots de passe... 

2 — TRANSFORMER VOTRE AMSTRAD EN SERVEUR (nécessite l'adjonction d'un modem) pour : 

— Mettre en place un journal cyclique (informations diffusées sur un lieu public, messages publicitaires...) 

— Gérer une messagerie complète avec mots de passe individualisés. 

— Diffuser des informations à vos correspondants habituels (syndicats d'initiative, clubs, associations, fournisseurs...) 

— Enregistrer des messages, des réservations, des commandes, ou même créer votre propre répondeur télématique individuel... 

— Permettre la consultation à distance de vos fichiers standard et Bases de Données créés avec DBase ou JETSAM, ou de textes de 
toutes longueurs créés avec LOCOSCRIPT ou WORDSTAR... 

* * La version 2 du logiciel JMN SERVEUR sera disponible fin 86. 

O.T.B. Département JMN DIFFUSION, 2, rue de la Bourse, 69001 LYON - B.P 1191 - 69203 LYON CEDEX 01 - Tél. : 78.27.97.90 
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BON de COMMANDE à retourner à : O.T.B. B.P. 1191 - 69203 LYON Cedex 01 CPC 1? 

Pour votre AMSTRAD CPC ou PCW : 

Logiciel JMN SÉRIE version CP/M 700 F TTC 

Logiciel JMN SERVEUR version CP/M 1.500 F TTC 

Pour votre AMSTRAD PC 1512 : nous consulter 

NOM Prénom 



Adresse 



Ville . 



Code Postal 

Paiement : à la commande , . . . 

à réception contre remboursement 

(En cas de règlement joint à la commande, O.T.B. prend à sa charge les frais de port). 



D 
□ 



Signature 



CRAZY V 3.0 






i 



Pascal BELLONCLE 



Vous êtes curieux de nature, vous voulez savoir ce qu'une dis- 
quette a dans le ventre ? 
Mais cette disquette est "protégée", son formatage est dif- 
férent, les secteurs ne sont pas standards, ont une longueur diffé- 
rente de 512 octets. 

Ce programme est ce qu'il vous faut. Il va enfin vous permettre d'ar- 
river à vos fins. 



En effet ce programme dialogue avec le 
contrôleur de disquette, il le programme 
directement et affiche ses registres. Ainsi 
tout devient possible, dans les limites 
permises par celui-ci, bien sûr. Bien que 
certaines manipulations "pas très ortho- 
doxes" permettent bien des choses 
amusantes. 

LA DISQUETTE 

Il faut rappeler que sur la disquette, les 
informations sont réparties en pistes 
concentriques (il y en a 40 sur chaque 
face) et que chaque piste est subdivisée 
en secteurs (théoriquement 9). 

LE CONTROLEUR 

Par exemple, sur l'APPLE II, qui ne pos- 
sède pas de contrôleur digne de ce nom, 
les programmeurs ont des tas de problè- 
mes de synchronisation, de parité, de 
checksums, de localisation des 
données... 

Tandis que le contrôleur s'occupe de 
tout. Il suffit de lui indiquer le secteur 
désiré et il effectuera toutes ces tâches 
ingrates tout seul. 

Le circuit utilisé est le /iDP 765 A de 
NEC. Ce circuit équipe des machines 
comme l'ORIC ou même les IBM PC... eh 
oui ! 

Ce circuit est très convivial, c'est pour- 
quoi on convient de distinguer 3 phases 
dans sa programmation : 
Phase instruction : c'est là qu'on lui indi- 
que ce qu'il doit faire. Par exemple se 
positionner en telle piste, lire tel secteur. 
Phase exécution : le FDC (Floppy Disk 
Contrôler) fait ce qu'on lui dit. 
Phase résultat : le FDC dit comment 
s'est passée la phase précédente. 

LES INSTRUCTIONS 

Je ne vais pas passer en revue toutes les 
instructions du FDC, mais pour ceux qui 
seraient intéressés, je leur conseille vive 
ment de se reporter au "Livre du lecteu 
de disquette AMSTRAD" chez Micro 
Application (n°10). Toutefois, il me sem 



ble nécessaire d'en examiner quelques 

unes, celles qui sont utilisées dans le 

programme : 

"Chercher piste" : sans commentaires 

"Aller en piste 0" : idem 

"lire secteur" : le FDC a besoin de 7 

informations 

— le numéro de piste ; 

— l'adresse de tète (0 = face A) ; 

— le numéro du secteur ; 

— la taille du secteur (sa longueur divi- 
sée par 256 ; 2 pour 512 par exemple) ; 

— le numéro du dernier secteur de la 
piste (généralement on indique celui du 
secteur voulu à cause d'un compromis 
au niveau du matériel) ; 

— GAP # 3 (c'est le nombre d'octets qui 
séparent les secteurs. Cela évite de réé- 
crire sur le secteur suivant, on ne sait 
jamais, imaginez que le moteur tourne 
plus vite...) ; 

— OFFh (255) est généralement le der- 
nier paramètre. Théoriquement il a une 
signification si la longueur fournie est 
nulle. (Il semblerait pourtant que... Un 
conseil n'y touchez pas). Les 4 premiers 



Il existe un autre type de secteurs recon- 
nus par le FDC, ce sont les secteur dits 
"effacés", les informations àfournir sont 
les mêmes que pour la lecture normale, 
seul le Data Adress Mark sera différent. 
REM : l'AMSDOS ne s'en préoccupe 
pas. 

"formatage" : cette instruction ne 
nécessite que 4 informations. 

— la taille des secteurs ; 

— le nombre de secteurs ; 

— le GAP #3 (l'AMSDOS utilise une 
valeur de 50h (80) et la valeur à la lec- 
ture et à l'écriture est de 2Ah (42) ; 

— le modèle de donnée pour le remplis- 
sage (l'AMSDOS et CPM utilisent tous 
deux fa valeur OE5h (245). 

Il faut aussi remplir un buffer où seront 
stockées les ID des secteurs. 
REM : les ID peuvent n'avoir aucune 
signification, les secteurs seront malgré 
tout accessibles, à condition de fournir 
au FDC les données adéquates. 

STRUCTURFS D'UNE PISTE 



début de p 

ao 
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^ 


IAM 


vide 

30 
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déb 
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secte 
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octets constituent ce qu'on appelle l'ID 
(entifiateur) du secteur REM : L'ID n'est 
qu'indicatif et n'a pas toujours la signifi- 
cation à laquelle on pourrait s'attendre : 
on reviendra dessus plus loin. 
Les données pour l'écriture sont les 
mêmes. 



CRC : 

IDAM 
IAM : 
DAM : 



somme de test ; 
: ID adress mark ; 
index adress mark ; 
data adress mark. 



LE TRUC 

Il faut pour cela réaliser un formatage un 
peu "spécial", mais rassurez-vous, c'est 
sans danger. 

Prenez une disquette normale, analysez 
une piste, initialisez les données pour le 
formatage, allez modifier le 3 e - octet en 
partant du haut à gauche de la fenêtre 
"analyse de la piste" : il doit être à 2, 
remplacez le par 6, formatez la piste, 
(Attention prenez une disquette qui ne 
contient aucune information importante 
car elle serait perdue). 
Il suffit maintenant d'initialiser les don- 
nées du FDC et de lire le secteur. 
Si vous avez suivi ces instructions à la 
lettre, en passant au dump, vous devriez 
devoir découvrir tous les octets précités. 

LA MISE EN ROUTE DU PROGRAMME 

— tapez la partie en BASIC ; 

— sauvez la ; 

— tapez le programme contenant les 
datas du langage machine ; 

— exécutez ce second programme ; 

— il vous faut aussi sauver un moniteur 
désassembleur sur cette même dis- 
quette. Il faut que ce programme soit 
situé très haut dans la mémoire (30000 
ou plus). MONA31 de HISOFT ou 
D.A.M.S. de Micro-Application convien- 
nent, mais vous pouvez aussi bien utili- 
ser le "Mini-moniteur" de Denis BOUR 
QUIN paru dans CPC n° 1 1 . Selon le pro 
gramme utilisé il faut modifier en consé 
quence la ligne 60. 

MISE EN GARDE 

Protégez vos disquettes contre l'écriture, 
une fausse manipulation est si vite arri- 
vée. Ne retirez cette protection que 
quand c'est nécessaire. 



LE PROGRAMME 

Démarrage moteur : à faire avant toute 
chose 

Arrêt moteur : utile ! 
Arrêt : fin du programme (dont arrêt 
moteur) 

Passage au dump : sans commentaires 
(dépend du moniteur utilisé) 
Aller piste i : de à 42, mais oui, on peut 
avoir 3 pistes supplémentaires, mais 
attention certains lecteurs risquent peut- 
être de ne pas apprécier 
Piste suivante : no comment 
Piste précédente : idem 
Ecrire/normal : 

Lire/etface : les données du FDC doivent 
avoir été initialisées correctement. Dans 



une fenêtre située en bas est indiqué le 
nombre d'octets effectivement 
transférés 

Formater : dernière étape du formatage. 
C'est là que le contrôleur formate la piste 
Analyse piste : affiche tous les ID se 
trouvant sur la piste. L'ID en haut à gau- 
che est le premier secteur dont le numéro 
est le plus faible comme le donne Odd- 
job ou Master Disc) 
Changer le formatage : permet de chan- 
ger les ID, ENTER permet de passer à la 
donnée suivante sans modifier celle sous 
le curseur 

Init donnée format : initialise les valeurs 
standards du GAP#3 à 50H et la don- 
née à ESH 

Changer donnée format : demande les 4 
données nécessaires au contrôleur pour 
le formatage. ENTER pour ne pas modi- 
fier une donnée 

Changer nombre secteurs ; de à 20, 
permet de vérifier si le nombre de sec- 
teurs trouvés est valable 
Ordre des secteurs : permet de changer 
l'ordre. Le premier devient le dernier. Vu 
que lorsqu'on initialise les données du 
FDC c'est l'ID du premier secteur qui est 
prise en compte, c'est utile, surtout pour 
parcourir une piste. 

Attention la rotation ne s'effectue que 
sur les secteurs affichés, donc attention 
aux surprises si après on augmente le 
nombre de secteurs 
Init données FDC : initialise les données 
pour la lecture ou l'écriture. L'ID est celui 
du premier secteur du cadre en haut à 
gauche 

Changer données FDC : cf changer don- 
nées format. 

PHASE RESULTAT 

Cadre de droite pour les FLAGS du 

contrôleur 

Cadre à droite du premier et en haut pour 

l'ID. 

FLAGS 

Interrupt code : normalement à 1 en fin 
d'instruction 

Seek end : mis à 1 en fin d'instruction 
(de comparaison) 

Equipment check : erreur de lecteur 
Non ready : lecteur non prêt si à 1 
Head adress : toujours à (sur un lec- 
teur n'ayant qu'une tête) 
Unit sélect : toujours à 1 
End of track : sur l'AMSTRAD toujours 
à 1 

Data error 1 : erreur de checksum si à 1 
Ovër run : le transfert de données s'est 



fait trop rapidement, des données ont été 
perdues 

No data : l'ID demandée n'existe pas sur 
la piste 

Non writable : la disquette est protégée 
contre l'écriture 

Missing AM 1 : 'signifie généralement 
que la piste n'est pas formatée 
Control mark : mis à 1 si un secteur 
"efface" est rencontré 
Data error 2 : erreur de checksum (celui 
avant le GAP#3) 

Wrong' cylinder ; mis à 1 si la piste indi- 
quée dans l' ID est différente de la piste 
physique 

Scan equal hit : non utilisé 
Scan not satisfied : non utilisé 
Bad cylinder : formatage incorrect 
Missing DAM 2 : généralement mis à 1 
quand la piste n'est pas formatée ou ne 
l'est pas correctement, 

CONCLUSION 

Voilà, j'espère que ça n'a pas été trop 
ardu et que tout le monde est arrivé sans 
casse au bout de cet article. Mais sur- 
tout ne vous désespérez pas, si vous 
n'avez pas compris quelque chose, 
essayez le donc. 

Rien de tel que l'expérience, mais atten- 
tion avant de jouer à l'apprenti sorcier, 
protégez les disquettes importantes... 
Bonne expérimentation : faites nous part 
de vos problèmes et de vos trouvailles 
(par écrit). 

Une prochaine fois, je vous expliquerai 
comment déformater une disquette, 
comment on détermine quel secteur est 
le premier sur la piste, comment intro- 
duire des décalages de bits sur la 
disquette... 

BELLONCLE Pascal 

Documentation : 

Livre numéro 10 de Micro-Application 

IBM Hardware Technical Référence 

Remarques complémentaires : 

— Le buffer "secteurs" est implanté à 
partir de l'adresse &4000. C'est donc 
cette zone que vous listerez au moyen 
de votre moniteur. 

— La ligne 60 sera à modifier en fonc- 
tion du moniteur que vous utiliserez. 
Attention ! certains moniteurs (tels que 
ZEN) qui s'implantent trop bas dans la 
mémoire ne peuvent pas être utilisés 
avec ce programme. 

— Le CALL à la ligne 33010 devra être 
adapté en fonction du moniteur utilisé. 



Tapez ce programme et ertecutez-le. 

1 1 génère un fichier b inaire qui 

sera appelé par le programme BASIC 

CRA2V3-0. 

Son nom est CRAZY3-0.CMD. 



Théoriquement tous ces octets ne sont 
pas disponibles pour l'utilisateur, mais il 
existe un moyen d'y avoir accès. 



10 FOR i=0 TG 791 3TEP 8 
20 smr.-O 



30 FOR j-0 IU 7 

40 READ a$:a=VAL("&"+a$) : 5um=a+sum*2: P0K 

E &A00Q+i+j,a 

50 NEXT j 

60 READ verif 

70 IF verifOsum THEN PRINT"Erreur en J. i 

gne : "; 1000+i/4*5 

130 NEXT i 

90 SAVE "crazy3-0.cmd l \b,?'.AOO0 T 792 

1000 DATA C3 1 C2,A0,C3,D6,A0,C3, 46,48428 

1010 DATA A1,C3<79,A1,C3,A5,A1,C3,42273 
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E3 
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DATA, 
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DATA 


00 
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OÙ 


00 
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DATA 


00 
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1080 


DATA 


00 


00 


00 
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00 
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O 
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DATA 


00 


00 


00 


00 


00 


00 


00 


00 


Û 


1100 


DATA 


00 


00 


00 


00 


00 


00 


00 
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1110 


DATA 


00 


00 


00 


Où 


Où 


00 


00 


00 


O 
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DATA 


00 


00 


00 


00 
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DATA 
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DATA 
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DATA 


ou 


00 


(_M_J 


ou 


00 


ou 


00 


00 





1160 


DATA 


00 
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DATA 


00 


00 


00 
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00 
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DATA 


00 


00 


00 


00 


00 


00 


00 


00 





1190 


DATA 


00 


00 


00 


00 


00 


00 


00 


00 





1200 


DATA 


00 


00 


00 


00 


00 


00 


00 


00 





1210 


DATA 


00 


00 


00 


00 


ou 


00 


00 


00 





1220 


DATA 


00 


00 


00 


FI 


01 


7F 


FB 


ED 


5111 


1230 


DATA 


79 


OD 


3E 


05 


3D 


00 


20 


FC 


19188 


1240 


DATA 


FI 


C9 


3A 


AO 


AO 


00 


F5 


F5 


50143 


1250 


DATA 


01 


7E 


FB 


ED 


78 


87 


30 


FB 


21863 


1260 


data 


87 


30 


EO 


FI 


Fi 


L9 


01 


7E 


34236 


1270 


DATA 


FD 


E5 


D5 


16 


00 


21 


20 


AO 


54308 


1280 


DATA 


E5 


ED 


78 


FE 


co 


38 


FA 


OC 


54o56 


1290 


DAÎA 


ED 


78 


OD 


77 


23 


14 


3E 


05 


40825 


1300 


DATA 


3D 


20 


FD 


ED 


78 


E6 


10 


20 


23688 


1310 


DATA 


E8 


El 


7E 


E6 


CO 


2B 


72 


Dl 


53953 


1320 


DATA 


El 


28 


06 


AF 


3D 


7T 
*"-1 


AA 


AO 


35540 


1330 


•DATA 


C9 


AF 


•li. 


AA 


AO 


C9' 


00 


2A 


43374 


1340 


DATA 


ei 


AO 


01 


7E 


FB 


18 


06- 


OC 


37072 


1350 


DATA 


ED 


78 


77 


OD 


23 


ED, 


78 


F 2 


43742 


1360 


DATA 


1D 


Al 


E6 


20 


20. 


FI 




Bl 


2-j-j.j-j- 


1370 


DATA 


AO 


C9 


00 


2A 


Bl 


AO, 


01 


7E 


36200 


1380 


DATA 


FB 


18 


06 


OC 


7E 


ED 


79 


OD 


36259 


i 390 


DATA 




ED 


78 


F2 


39 


Al 


E6 


20 


28952 


1.400 


DATA 


20 


FI 


— *- 


El 


AO 


C9 


00 


CD 


257.29 


1410 


DATA 


F3 


A2 


06 


20 


F3 


00, 


C5 


3E 


44576 


1420 


DATA 


4A 


CD 


C5 


AO 


3E 


00 


CD 


C5 


32559 


1430 


DATA 


AO 


CD 


D6 


AO 


11 


£.<> 


AO 


1A 


43630 


1440 


DATA 


77 


i-J 


13 


1A 


77 


iJ 


13 


1A 


19652 


1450 


DATA 


77 


23 


13 


1A 


77 


23 


Cl 


10 


19990 


1460 


DATA 


DC 


FB 


CD 


21 


A2 


32 


AF 


AO 


533 1B 


1470 


DATA 


C9 


00 


F3 


3E 


4D 


CD 


C5 


AO 


36486 


1480 


DATA 


3E 


00 


CD 


C5 


AO 


3A 


Al 


AO 


19642 


1490 


DATA 


CD 


C5 


AO 


3A 


A2 


AO 


CD 


C5 


47439 


1 500 


DATA 


AO 


3A 


A3 


AO 


CD 


C5 


AO 


3A 


34774 



1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1 620 
-163Ù 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1 750 
1760 
1 770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 



DATA AO 
DATA CD 
DATA 46 
DATA AO 
DATA Al 
DATA CD 
DATA AO 
DATA A^ 
DATA CD 
■DATA AO 
DATA C5 
DATA AO 
DATA CD 
DATA AO 
DATA A4 
DATA CD 
DATA AO 
DATA C9 
DATA 04 
DATA 28 
DATA 
DATA 4F 
DATA 19 
DATA 79 
DATA 7E 
DATA 80 
DATA 00 
DATA 00 
DATA CD 
DATA 18 
DATA 3E 
DATA 3A 
DATA AO 
DATA AO 
DATA FI 
DATA 06 
DATA 3E 
DATA 3A 
DATA A7 
DATA 3E 
DATA F5 
DATA CD 
DATA F5 
DATA 20 
DATA AO 
DATA 3D 
DATA 77 
DATA 21 



i,AO 


CD 


C5 


, AU 


CD 


2A 


Al, 


>,D6 


AO 


FB 


,C9 


00 


F3 


3E, 


,CD 


C5 


AO 


SE 


00 


CD 


C5, 


,3A 


AO 


AO 


CD 


C5 


AO 


3A, 


,A0 


CD 


C5 


AO 


3A 


A2 


AO, 


,C5 


AO 


3A 


,A3 


AO 


CD 


C5, 


,3A 


A4 


AO 


CD 


C5 


AU 


3A, 


,A0 


CD 


C5 


AO 


3A 


A6 


AO, 


,C5 


AO 


CD 


OE 


Al 


CD 


D6, 


,FB 


C9 


00 


F3 


3E 


45 


CD, 


,A0 


3E 


00 


CD 


C5 


AO 


3A, 


,A0 


CD 


C5 


AO 


3A 


Al 


AO, 


,C5 


AU 


3A 


A2 


AO 


CD 


C5, 


,3A 


A3 


AO 


CD 


C5 


AO 


3A, 


,A0 


CD 


C5 


AO 


3A 


A5 


AO, 


,C5 


AO 


3A 


A 6 


AO 


CD 


C5, 


,CD 


2A 


Al 


CD 


Dû 


AO 


FB, 


,00 


21 


00 


3A 


£.'j! 


~- 


11, 


, 00 


7E 


06 


01 


00 


19 


BE, 


,08 


04 


4F 


78 


FE 


21 


79, 


,F3 


3E 


20 


C9 


00 


19 


EB, 


,D5 


21 


00 


3A 


11 


06 


oo, 


,D1 


1A 


11 


04 


00 


04 


BE, 


,20 


DA 


05 


78 


C9 


00 


01, 


,FA 


3E 


01 


ED 


79 


01 


00, 


, 00 


OB 


78 


Bl 


20 


FA 


C9, 


,01 


7E 


FA 


AF 


ED 


79 


C9, 


,3E 


07 


CD 


C5 


AO 


3E 


00, 


,C5 


AO 


3E 


28 


CD 


CE 


A2, 


,05 


00 


E5 


D5 


C5 


F5 


00, 


, 08 


CD 


C5 


AO 


CD 


D6 


AO, 


i21 


AO 


F5 


3E 


OF 


CD 


C5, 


,3E 


00 


CD 


C5 


AO 


3A 


AB, 


,CD 


C5 


AO 


3A 


AB, 


AO 


47, 


,90 


38 


05 


CD 


CE, 


A2 


18, 


, oo 


ED 


44 


CD 


CE 


A2 


00 , 


,08 


CD 


C5 


AO 


CD, 


D6, 


AO, 


,21 


AO, 


21 


AB 


AO 


BE 


20, 


.Fli 


Cl, 


Dl 


El 


C9, 


00, 


F5, 


,0C, 


CD 


E7 


A2 


FI 


3D 


20, 


,3E, 


10, 


CD 


E7 


A2, 


3E, 


08, 


,C5 


AO, 


CD 


D6 


AO, 


L9 


00, 


,3E, 


F6, 


3D 


20 


FD, 


FI, 


3D, 


,F5, 


C9 


21 


AO 


AO, 


3A 


AB, 


,77, 




AF 


77, 


23, 


77, 


23, 


,77 


*y% 


3Ç 


77 




3E, 


2A, 


7T 


3E, 


FF 


77, 


CD, 


A5, 


Al, 


, 00 


3A, 


C9 


00 


00, 


00 , 


00, 



,42777 

51228 

32047 
,34678 
, 42556 
,47447 
, 34806 
, 43076 
, 48628 

45511 
, 40246 
,42426 
,47439 

34774 
,42946 
,47471 
, 40587 
,27475 
,4888 
, 9379 

24037 
,25344 
,17910 
, 26357 

36510 
,20901 
, 10887 
,9812 
, 46674 
, 10.038 

20848 
, 19739 

30231 
, 44003 
,44748 
, 12228 

20848 
,17604 
,49169 
,21374 
,41748 
, 50002 
,45987 

28943 

33381 
, 18762 
, 25799 

7296 



10 nb=Jl:DIM bî ïnu! 









20 MEMORY «, : 39FF 








30 KEY 10, "mode 2:pen l:paper 0"+CHR$U3) 








40 MODE 2:11* 0,13:INK 1,0: BORDER 10 








50 COSLIB 1000: IF FEEK (MOOO) O 195 THEN LOAD 


"crazv3- 


i.cmd 




60 IF PEEh; (300001 024 THEH LOAD "monaM.bin" 


, .^0000 






1 00 W I NDOW #5 , 2 ,:.z, 2 . 1 2 








110 WINDUW #6,35,58,-2,6 
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PATAMAT PCW ; Enfin une gestion de fichiers 

SIMPLE , RAPIDE ET PUISSANTE SUR PCW 

Pour 590 F seulement! 



DATAMATPCW 

- il permet de créer 32767 enregistrements parfichier. 

- Chaque fichier peut comprendre jusqu'à 83 zones 
de saisie réparties sur 9 pages écran. 

-L'utilisateur peut créer lui-même ses formulaires de 
saisie. 

- Datamat PCW permet de relier les fichiers entre eux afin 
de transférer des données d'un fichier à un autre. 

- Avec Datamat PCW, il est possible d'effectuer des calculs 
sur les zones de saisie (addition, multiplication, etc.). 

-Le format d'impression peut être modifié (impression en 
liste, justification à droite ou à gauche, en-tète, etc.). 

-Simplicité d'emploi : Datamat PCW fonctionne avec des 
menus gérés partouches de fonctions. 

- Toutes les opérations sur fichiers (saisies, modification, etc.) 
s'effectuent directement sur disquette. 

- On peut créer autant d'index que de zones de saisie par fichier. 

- Tri en ordre croissant ou décroissant. 

- Possibilité d'utiliser le RAM DISC avec le PCW 8512. 
Réf. : AM 316. Prix : 590 F TTC 




Pour 395 F TTC OFFREZ-VOUS DES GRAPHIQUES SUR PCW 




Systèmes requis : 

PCW GRAPH fonctionne sur PCW 8256 et 8512, il utilise l'imprimante 
de cet ordinateur. 



PCW GRAPH est le logiciel qui vous permettra de représenter 
graphiquement vos données sur PCW 8256 et 8512. Vous pourrez 
obtenir des histogrammes de différentes formes qui agrémen- 
teront les résultats de vos applications ou des programmes que 
vous utilisez. Il vous sera, par exemple, possible d'afficher jusqu'à 
quatre zones d'un tableau créé par MULTIPLAN. En fait, tous les 
logiciels pouvant générer des fichiers au format ASCII (la plupart 
le permettent) peuvent communiquer leurs données à PCW 
GRAPH. Une fois définis, ces graphiques seront imprimés. 
Caractéristiques du logiciel : 

- De 1 à 4 graphiques directement à l'écran. 

- Editeur de texte pour ajouter des commentaires aux graphiques. 
-Sept types de représentation graphique (barres, barres 3D, 

cumuls, cumuls 3D, lignes, surfaces et secteurs). 

- Editeur de trames. 

-Deux échelles pour la sortie vers l'imprimante, dont une en 
pleine page. 

- Possibilité d'affichage des légendes et d'une grille de référence. 

- Utilise des fichiers au format ASCII. 

Réf. : AM 315 - Prix : 395 F TTC 



Lepremier livre pour 
IAMSÏRAD PCW! Cet 
ouvrage vous permettra 
de reussif à coup sûr vos 
débuts sur le PCW. On 
découvre pas d pas le 



puissant taitement de 
texte LOCOSCRIPT, puis 
la programmation BASIC 
MALLARD et l'utilisation 
deCP/M indispensable 
pour bien profiter de son 
PCW. 

Réf. : ML 164 
Prix : 129 FF 



LE LIVRE DE 
L'AMSTRAD PCW 

Vous possédez un PCW 
et vous voulez en tirer le 

vre a êtê écrit pour vous! 
Grâce à lui vous utilise- 
rez au mieux le LOCO- 
SCRIPT et profiterez de 
toutes les possibilités 
offertes par le CP/M. 



Une formation intensive 
au BASIC MALLARD vous 
permettra d'écrire des 
routines d'édition, un 
générateur de masques 
de saisie, des routines 
de tri et une gestion de 

Réf. ML 165 
Prix 179 FF 



47-70-32-44 



ï^ 




W^:.mm.mm mm «- «■" mm ■» BON DE COMMANDE 



horaires d'ouverture 
9h-13h/ 14h-18h 



/MICRO /APPLICATION 

13, rue Sainte Cécile 75 009 PARIS 
léi.:(l)47-70-32-44 



■ 

1 


DESIGNATION 


QUANTITE 


PRIX 








1 








1 








1 

I 










OTAL TTC 





^^ f^^J^^^^RJ^. ■ 



OMandaf CI Chèque DCéP 

Libellez vos chèques a l'ordre de Micro- Application 

Nom. Prénom ,, .■ ... ■ , ■ 

Adresse ■ ,, . , ; .... 

.Ville ' ,.. , . ; , ■ , Ç.P ; 



m 



naon DDD DQDDPa 

rcHsd'envoi Date et signature 



i;.:0 WII'IDOW tr/,35. &>3, Q, 1 2 

1Ï0 WINIjUW #1,35,59,14,21- 

140 ujimijijw #2,35,58,23,24 

150 UINDOM #4,60,79,2,24 

16U W1NDÛW #0,2,33. 14,16 

170 WINDOW #3,2,33, 18, 24:CLS#3: WINDOW #3, 



2,-19,23:CLS#3 



X" , Inter.code, Seek end, equi p. check, Non ready,llead adress.Unit seiect 
X",End erf Track,Data errorl,uver run,t-to Data, Non Wi "i tab le,Missing Adr 



210 DATA » X ETAT 
220 DATA " X ETAT 1 
. Markl 

230 DATA " X ETAT 2 X", Contrai mark, Data errop2,Wrong Cyl inder , Scan equal hit, Scan <ail,B 
ad cyl inder, ati ssmy Adr.Mark2 

300 Q.uaiJB 50O0:t5OSUB 4000:GÛSUB 3000:QDSUB 5020:E0SUB 6000:G0SUB 7oO0:GQSUH B000:B0SUË 9O0O:B0SU 
B 10000 

400 DATA Démarrage moteur, Aller en piste a, Piste suivante, Piste précédente, Analyse de la piste, 
rdre des secteurs, Changer le for 

410 DATA Init. données FDC, Changer données FDC, Ordre des sec teurs,Lire le secteur, Lire sect. eff- 
ace, Ecrire le secteur, Ecrire sec 
300 RESÏORE 400:1-01! i = l TO nb:READ b$(i):NEXT 
510 BCISUB 11000 

520 a$=iNf.Ëi$: IF A*«"" THEN 520 
530 IF ASC!A$)=240 THEN 13GSUB 13000 
540 IF ASC (Al) =241 THEN EDBUB 12000 
550 IF ASC(A$)=13 THEN 2000 
560 BOI'D 520 
1000 +dc]n=!-;>AOO0 
1010 resuj t=?/A003 
1020 infa=^A006 
1030 tormai,=;'A'""'9 
1"40 iectu«*AOÛC 
1050 etr-is=!-AO0F 
1060 cal ibr=5<A012 
1070 atartm=s,AOl5 
10BQ StOPir,={!Î»ie 
1090 endrt=?AOBI 
1 1 00 parain-^AOAO 
1110 RETURN 

2Q0Q ON opos OOSUB 38000, 20000, 21000, 22000, 23000, 25000,27000, 24000,35000, 360uO, 26000, 34000, 32 
, 25000, 2BO0O. 30000,29000, 31000, 3 
2010 OUH) 5201 
ÏOOO CLS#6 

3010 FRIimié," X PHASE RESULTAT X" 

3020 PRINT#6," numéro de piste : "ïHEX* (PEEK (&A023) , 2) 
3030 PRINT#6," adresse de tête : ";HEX« (PEEK (WW24) , 2) 
3040 PRlr-.il tt-L.. ! numéro de secteur : ";HEX* (PEEK «,A025> , 2) 
3050 PU [III #6," taille du secteur 1 : " ; HEXÎ (PEEK l!iA026i , 2) 
-3060 RETURN 
4000 WINDOW #4,60, 79,2, 24:-CL3#4:RESTaRE 210:F-0R 1=0 TO 21:READ a*:PRINT#4, a*: NEXT: WINQuWtM , 7 - 

,3,24:CLS#4:PRINT#4,": :::: 

4010 RE'TURN 

5000 WINDOW #0, 1,80, 1,25: PEN 0:PhPER 1:CLS:PEN 1: PAPER 

5010 WINDOW #0, 2,33, l-'l , 16: RE I URN 

5020 PAPER #,%o:CLS# 7 :WIHD0W#/,37,56,9,Il:PEN. #7,0:I :: hPER #7,1:CLS #7 

3050 PRIITI-II7, " Crazy v 3.0" 



A PROPOS DU LISTING 

Vous remarquerez que, contrairement à l'habitude, ce listing a été édité sur toute 

la largeur de la page. Ceci est dû au fait que l'auteur a utilisé des caractères de 

contrôle et que, de ce fait, nous avons listé le programme via un traitement de 

texte. 

Lorsque vous rencontrerez une ligne avec le signe X, il faudra taper CTRL X (appui 

simultané sur CTRL et X). 

Pour le signe — ce sera CTRL et I 
Pour le signe I ce sera CTRL et K 
Pour le signe I ce sera CTRL et J 

Et n'oubliez pas de modifier les lignes 60 et 33010 en fonction de votre moniteur ! 



Pas 



,-right 1906 
•il Belloncle"; 



5o F'SÏHÎW 

6" RflllRM 

00 CLE #5:PRINI»5," X Analyse de la piste 

10 FOR 1=1 10 PEEKlWOAFi S1EP 2 

;:o ppiiri «b, usure "##"-■, i s 

50 ri-ilhl#5," ";HEx*lPEE> (Ï.3A00+ < i-1 ) »4) , 2) : 

-k' F'filHT #5, HEX*(PEEK(&3A01+(i-l)*4) ,2); 

50 TRirmtS," " ;HEX*(FEEk(»3A02Kl-l)*4) ,2); 
60 PHUHt-5," " ;HEx*ll 1 'EEK(<.3A03Ki-l)»4),2i ; " 
70 tï- i '=-l-T-E:r.!6Ai!HI : > THEN 6130 
00 PRINT «S, IJS1HG "»*"; i +1; 






TOUT 






SUR LES 
AMSTRAD 
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/HICRO APPLICATION 

13,rue Sainte Cécile 75 009 PARIS 
Tél.: 0)47-70-32-44 



DESIGNATION 


QUANTITE 


PRIX 




























OTAL TTC 





BON DE COMMANDE i 

U Mandat l l Chèque LJ CCP 

Libellez vos chèques a l'ordre de Micro-Application 

Nom. Prénom _ . 



m 



CP _.. 

□ DDDDDQDDDDDD 



CB date d expiration _ 



Da!e et signature 
■-■ 20 F de Irais d'envoi 
ou 40 F pouf envoi recommande 
Port gratuit pour toute commande supérieure a 250 F 






50 



PHI! ■' II': , " 

pf ri.iits, ■ 

I KIN'.*f>, ■ 
PfUI-JIttb, " 
NL.'l i 
RETURN 
CL S tt) 
PRINTtU," 

PRIMT#I," 
FRTNT#1. , " 
FRINT#t," 
PRINTtU," 
PRÏNTttl, " 
PRINTtU," 
PRINTtU, " 
RETURM 
rX5#4:a=f 
a*=BIN5>(a 
a*=a*+" l 
»*=UINt(P 
FPlNI#4,a 
»*=BIN»<P 
a*=F [MIH 
PI; IN !«•!,-< 

RU i LU M 

CLStfîtPR] 

PI. INI il'.:, 

RF.ÏUKN 
i Cl S »" 
l PR1-MTKO 

:i prihi 1*0 

) PR1NTWJ 
• RETURN 
) NINL'OW 
1 ÏP CPQ5 

i FOR i=nb 
| PRINIS3. 
!l I UR i =2 
) opos=l 
) RETURN 



jlCXï (PEÊI '■ ïflUo* i i)*4) ,; >î 
■H£/.*<PEEI (J-ÏAÙl+li) «4) ,2>; 
;HL<» irEEl i .*''■! im.:-i ii)*4) ,2! ; 
;nLXt(PLEI (&3AO-3 Mi>*4> ,2) 









X DONNEES FDC 
numéro de piste 
numéro de tête 
numéro de secteur 
taille du secbeur 
dernier numéro 
Brf #3 
langueur 



"|HEX$(PEEK( 

;HEX*(PEEK< 

;P!EX*(PEEK( 

; HEX* (PEEK I 
";HEX*iPEEK(!-<3F14), 2 

;HEX$(PEEK<8<3F15>,2 

;HEXttP£EK«-<3Flo),2 



3F10) ,2) 
3Flli,2) 
3F12),2) 
3F13),2) 



l)+a$:PRINT#4,aî; 
+r1ID$(a*,3,2)+RIBHT*(s 



EEK!tH020î 

,B):a*=RIGHI$(at, 6) : a*=LEFT* (a*, 4 

" : a*=PTfiHT*<8TRS ! DIT (a/641 ) 

EEKlWHMli ,8) :a*=LEFT$(a», i 

i ; " " ; 

IIV. i8.HM2) ,31 

'a*, "i 

1 

NHt'2," numéro de plïtei " ; PEEK (&A0A8) 
Octets lus : " ;bt len 



X DONNEES FORMATAGE X 
" lai Ile sec. : " ;HEX$ (PEEK (S..3F00) ,2) ; " Nonbre 
" BftP. #3 :";HEX$(PEEK(!<3F02),2);" donnée 

3,2, 33, 1B,24:CLS#3:WIND0W #3, 3, 32, 19,23:CLS#3 

K> THEN 11500 

-1 10 nb:PRINT#3, " ".; b$ < i ) : NEXT 

■'X ";b*Ul :" X" 

10 ::PFINT#3," " jb*( i i :NEXT 



;HEXt 
;HEX* 



PEEKI&; 
( PEEK I fc: 



";bt(oFOS~2i ELSE PRINT#3," 
"ib*(opos-l) ELSE PRINTtt.3," 



";b$(opos+l) 
"; b$ (apos+2) 



ELSE PRINTIT3, 
ELSE PRINT#3, 



CL5 #3 

IF UfKS-Z>0 THEN PR1NT#3," 
IF apas--l>0 THEN PRINT#3, " 
FR1N1#3,"X ";b*(apos) ; " X" 
IF oposHXnb THEN PRINT#3, 
IF opos+2<nb THEN PRINr#3, 
RETURN 
' I = i + 1 

IF oP0S=nb THEN npos=l ELSE npos=oPOS+l 
LOCATEttî, t,3:PRINTtt3," " ;b* (oPOS) ; " " 
LOCATE «,30,5:PR1NT#3 

IF opos+3>nb THEN PRINT#3," " ;b* (opos-nb+3) ELSE PRINT 
L0CATEjt3,l,3:PRINT#3,"X " ; b$ (npos) ; " X" 
opos=npos 
RETURN 
i = i-l 

IF Qpoa-1 THEN npas-nb ELSE npo5=apaa-l 
LOCAIEilî, 1, i:PRINT#3," ";b* (oFOS) ; " " 
LOCHTE 83,l,l:PfiINT*3,'4 "; 

IF dpo5-3-;1 IHEN PRINTttï,b*lopo5+nb-3>ELSE F'RINT#3,b*( 
LOChTE#3,1,3:TR1NT#3, "X " ; b* (npos) ; " X" 
opos=npos: RE l'URN 
aller en piste i 
CLS *;. 
INPUT #3, "Numéro de piste : ".tract: 



"jb 

";b 



$ (opae-2 
$ lopoa-1 



nb) 
+nb ) 



;b$ (opoe 
; b$ (apos 



■1-nb.i 
-2-riM 




. 



Gestion de fichiers 



d'origine a M, A, muni d'un chè- 
que de 50 F pour (rais d'envol. 
Réf. : AM 304 
Pri* :450 F disq 

ïextomat 

Traitement ûe textes 

Réf. : AM 305 

Prix :450 F disq 

Calcumat 

Tableur 



AUTOFORMATION 
À L'ASSEMBLEUR 
EN FRANÇAIS 
SUR PCW ET CPC 

Contient; un livre et un logiciel. 



mmmmmm . 

n 

les professionnels | 



sur Amstrad cpcpopcw | 



mm 

ii COMPILER 

SUR PCW ET CPC 
M 



AMSTRAD 



AUT0F8RM 
A LASSEMBLEI 
INFRANÇWfj 



Cet ouvrage introduit le débutant à la programmation du 
Z80 grâce â la méthode du Dr WAT80ÏÏ qui selon les cri- 
tiques vaut son pesant d'or! Aucune connaissance préa- 
lable n'est requise et le but du livre est d'assurer au 
novice un succès total. A la fin du livre les instructions du 
Z80 sont expliquées en détail. De nombreux exemples 
illustrent les différentes étapes du cours alors que des 
exercices (les solutions sont fournies) testent la compré- 
hension. D'autres chapitres montrent comment de nou- 
velles commandes peuvent être ajoutées au BASIC, no- 
tamment une routine de traçage de CERCLE. 



Un assembleur Z80 complet 
est livré sur cassette et 
comprend ; 

• Etiquettes Symboliques 

• Directives d'Assemblage 

• Chargement /Sauvegarde 

• Copie Ecran 

• INSERT/DELET. 
L'assembleur permet d'écrire 

cilement en langage d'assemblage puis les transforme 
en code machine (langage ^ 

machine). 

Pour vous aider 
prendre les 
triéma-tiques utilisées, 
démonstration do i'utiljsa- 
tion des nombres tu littirea 
et hexadécimaux est fournie. 
Un programme utilisant les 
commandes graphiques ad- 
ditionnelles décrites da i ls Le 
livre est également fourni. 
Pour CPC : 
version Disk. 29S F 
version Cassette; 195 F 




dB Compiler : un compilateur pour dBASE II ! 

Le compilateur dB Compiler traduit votre programme écrit sous 
dBASE II en un jeu d'instructions proche du "langage machine'' 
(donc très rapide) et pouvant être exécuté indépendamment de 
dBASE II. dB Compiler est le premier compilateur pour dBASE II, le 
leader des SGBD sur AMSTRAD PCW, dB Compiler permet de faire 
fonctionner vos applications dBASE II sans dBASE II. Celles-ci peuvent 
être diffusées librement sans aucune redevance à payer. 
Les avantages de dB Compiler : 

- Simplicité d'emploi. 

- Pas de redevance, 

- Protection du Code Source. 

- Indépendance de dBASE II. 

- Accroissement de la vitesse d'exécution (jusqu'à 10 fois plus rapide I). 

- Gestion entièrement automatique dé la mémoire. 

- Facilité de maintenance des programmes source. 

Avec dB Compiler votre application fonctionnera plus rapidement 
et Indépendamment de dBASE II. Vous pourrez ainsi la recopier et 
la faire fonctionner sans dBASE II. 

Documentation en français. 

DB Compiler: 
Ré). :AM312 
Prix :790 F TTC 



LA SOLUTION 



*iilt-IMt IW.-MII.iHI 




La SOLUTION c'est votre solution BUREAUTIQUE COMPLETE sur AMSTRAD CPC. En effet, ce package 
regroupe trois logiciels (Traitement de Texte, Gestion de Fichiers. Tableur Graphique) complémentaires et 
homogènes qui vous permettront de traiter efficacement toutes vos tâches de bureau (rapport, courrier, 
tenue des fichiers, publipostage, calculs prévisionnels, représentation graphique des résultats, etc.). Les 
trois logiciels pouvant s'échanger leurs données, les possibilités offertes par la SOLUTION sont très vastes : 
on pourra par exemple réaliser un mailing à partir du Traitement de Texte en reprenant les adresses sélec- 
tionnées à partir de la Gestion de Fichiers et un tableau de prévisions réalisé par le Tableur sera inséré dans 
le texte. Enfin rappelons que les trois logiciels composant LA SOLUTION sont trois best-sellers interna- 
tionaux de haute qualité ; TEXTOMAT, DATAMAT, CALCOMAT, 

Réf. : SOL - Prix : 950 F 



w 
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/HICRO APPLICATION 

13,rue Sainte Cécile 75 009 PARIS 
Tél.: (1)47-70-32-44 



DESIGNATION 


QUANTITE 


PRIX 




























OTAL TTC 





-1CCP. 

Libellez vos chèques à l'ordre <3e Micro-Application 
Nom, Prénom ,„ . 



_ C P - 



CB date d expiration: . 



Vide — . 

SnDDDDDnnnnnnn 
Doteetsignolure 
+ 20 F de Irais d'envoi 
ou 40 F pour envoi recommandé. 
Port gratuit pour foute commande supérieure a 250 F 



AlOiU 


IF tr-ack o un tract -12 THEN 20010 


2c '040 


POi r. WK'AB.trâcl. 


2i » iS' 


CALl. cj.iibr 


20060 


BOSUB ÏUOO 


200 ''. 


OOSUB 11000 


.•''OB': 


RE 1 URN 


21 oûc 


Fiib suivante 


21010 


II- tr?cl^l.: IHtN t.--3ck=0 EL.SE track=tracl:+i 


210A 


6010 2oo4i' 


21030 


KL rURN 


2200': 


Piste précédante 


22010 


IF track=0 rHEN tracl=42 ELSE tracl ~track-l 


22'.'2'. 


tOÏ(J 20040 


220 '■'• 


Rt'DOl 


2 .'■'.'(.". 


Analyse du la piste 


'2.-" 10 


Ci'iLI lrifo 


2'"'.'2'. 


lîOSdB 6>'0" 


2103.0 


POKF. ■'.■".! m M Erl U '.lO-UPulE K3F01,PEEK(JiftOAF( 


23041 


00- OB loOOO 


23050 


Rill E Î.7- l",i EEI ''TAo'.i 


2306i: 


FOI E ?• 2 F" 1 ;,l : i.".Ei.('-'A"l ), 


230/0 


POI F !,.ïi 1. ,f lt.1 l! 3ii"2) 


230Ci: 


POI E !•.:.!- 1 ;,PELI i*.3A03! 


23090 


GUSU8 7000 


23100 


ijEt'Ul-.N 


24 »0 


Formater la pi-te 


3 1010 


POI E param,PEEl ( V. 2i" 3 ) 


24i '20 


POI E paramH.PEEl <»*:•'-" 00) 


24031 


POI E param+2,1 EEi (KF01) 


2404" 


KOI E param+3,PEEI (&3F02J 


24US0 


FOI E endrt.O 


24OÛ0 


FOIE end'-tM.Î.JA 


2403O 


LhLL format 


24080 


bU<=n=25&- i."t-.El 'endr- + l)-!<3A)+PEEKlendrti 


24090 


GOSUB 3000:uûbOB 8000: GOSUB 9000 


24100 


FiElORN 


25000 


Ordre des secieura 


25'.' 10 


FOR i=0 10 3:aU)=rEEi;(S-.3A00+il iNEXT 


2502'. 


FOR i = l TO PEEI (î-AiViFI-i 


25030 


F 01 E i 5A0O ► ' i - 1 i » 1 . PEEK <Si3ft00+ 1 * 'I ! 


2S0-10 


POI E i.Z-fv.n ' 'i -!!<l,i L'£KiS<3A01 + H4i 


:":■'.''.." 


PO' E ..3ô:.-2 i ; ; ■ 1) »4,l I.EK. (&3A02u*4j 


25070 
25080 


r Ot E ï- i»03< ( i- 1 ) « 4, F FEK (S.3M03+ i *4 > 


FOR i=0 10 ":10li. 3;aoo+].+ (PEE]ùî:hOAF1-1î *4,a li 


25090 


:ÛLfâUF< 6000: Rc IOKN 


3o'.i>'i' 


nu de électeurs 


26010 


CLS tt :: llHIJill '. "IV'nmhre de secteurs : ",l 


26020 


IP i 21 rHEN FOIE i-AOAF,i:P0KE K5F01 , i 


2603') 


GO'JOB 10000:60SUË 6000:60SUB 11000 


3t. .40 


RE l OKN 


27000 


'Changer le formatage 


27010 


FOR i=l 10 FEE! i.'-AOAl) STEP 2 


2702'.' 


FOR ]=0 10 : 


2 T 03o 


L0f.AIEJt3,4+ )».'■, Mi- li/2 


2 .''.'40 


1NPU1 tt3,"", i» 


2705'.' 


IF a*- >"" IhEN FOIE MA0O+ « i-l ) »4+.i , VAL ( "&"+a$) 


27060 


NE < 1 ,' 


2 70 70 


IF i =1 EPI '.MOAF) IHEN 27130 


27080 


FOR i--' 10 '' 


2/09" 


LOL'àlEttS, ,:i->j»3,3+i i -D/2 


2.7 100 


INPOI «',,"",a'S 


.'7110 


Il a* '" rHEN FOI E ?.3A00+i*4+j,VrtL("?-"+aï) 



i! :NEXT 



27120 
27130 
27140 
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NL.VI j 

NE AT i 
GOSUB 6001 



MICRO-INFORMATIQUE 



DECIBEL 



LE SPÉCIALISTE AMSTRAD 



+ 400 softs 

en stock 

permanent 

Tous les ouvrages 

sur Amstrad 

7, Bd do Lycée 
74000 ANNECY 
Tél. 50.57.70.41 



COMPTAFACIL 

Progiciel de comptabilité générale utilise' depuis 1982 
par des PME, agriculteurs, artisants et libéraux. De la 
saisie au bilan, 8 journaux, 900 comptes (7 chiffres), 
lenrage. Edition des comptes, journaux, grand livre, 
balance, compte de résultat et bilan (provisoire ou défi- 
nitif au choix}. 

Fonctionne sur AMSTRAD sous CPM 2.2 ou 3.0 avec 
2 lecteurs, vetsion pour 464, 664, 6128 et PCW 8256. 
Fonctionne sur IBM PC et compatibles (MSDOS) 

Démo automatique sur PCW 

et compatibles. 

Disquettes de démonstration. 



MER 



B.P. n° 2 St-Philibert 
56470 La Trinité-sur-Mer 
97 55 09 74 



LENS a 
MICRO ùk 
INFORMATIQUE 

Revendeur qualifié 
conseil AMSTRAD 

Point pilote 
nouveautés, softs 
et périphériques 

96, Av. Alfred Maës 

62300 LENS 
Tél.: (21) 28.72.44 




D CCP LU Mandat Q Chèque bancaire 

DDD DDD □□□ DDD DDD 




27150 
281X10 
28010 
28020 
280 50 
28040 
,28050 
28060 
29000 
2901.0 
29020 
29030 
29040 
29050 
29060 
29070 
29080 
29090 
30000 
30010 
31000 
31010 
32000 

32020 

32010 
32050 
Î2060 
32070 
32080 
32090 
32100 
32110 
32120 
32130 
32140 
.32150 
321.60 
32170 
321BO 
33000 
33010 

33040 
34 000 
34010 
34020 
340 30 
34040 
34050 
34060 
34070 
. 34080 
34 090 
35000 
35010 
35020 



36010 
36020 
36030 
36040 
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RETURN 

'Lira le secteur 

FOR 1=0 l'U 6: POLE MOAO+i ,PEEK U<3F10+i i iMEXT 1 

PUKE endrt,0:POKE endrt + l,?:40 

CALL lectû 

b-f len=256* (PEEK (endrt+1 i -MO} +PEEK iendrt ! 

EÛSLIB SOOÛlSQSUB 8O00:G0SUB 9000 

RETURN 

'Ecrire le secteur 

FOR i=0 TU 6 

POKE ?<AOMO+i,PEEK(8<3Ho+i) 

NEXT i 

PUKE endrt.O 

PUKE endrt + 1 ,«<40 

CALL écris 

b t 1 en=256* ( PEEK l endr t + 1 ! - 140 l +PEEK (end r 1 1 

BOSUB 3000:GOSUB BOOOlGDSUS 9000 

RETURN 

lecure el- 1 ace 
POKE MIAB.MC-.SQSUB 28000: POKE W-ilAS, Mb: RETURN 
'écris ?fiace 

POKE , !ift! : E6.ï..49:G0SUB 29000:POKE M1E6, M5: RETURN 
'Changer donees FDC 
CUS#3 
1NPUT#3, "numéro de piste :",a$ 

IF a*<; THEN POKE MF10,WLt"!<"+a*> 

INPUT#3, "numéro de tête :",a$ 

IF a*<>"" THEN POKE 8..3Ftl,VAL("?<"+â*> 

!NF'UTtt3, "numéro de secteur :",a* 

IF a*";>"" THEN POKE M.F12, VAM "V'+a*) 

lNPUr#3, "taille du secteur :",a$ , 

IF »♦<>"" THEN PUKE WF13,VALt"i"+t») 

lNF'Ultt3, "dernier numéro : " , a* 

IF a*<>"" THEN PUKE WF14, VAL < "&"'+a'!0 

IHPUI#3,"GAP #3 :",a* 

IF a$C'"" THEN PUKE MF15, VAL ( "V'+a») 

INPUl#3,"longeur :",a* 

IF a$0"" THEN POKE !<3F16, VAH "*"+**) 

BOSUB 7000 

BOSUB 11000 

NE l'URN 

' Passage au dump 

CHL.L 30000, 0, 50000, HIHEM 

MODE 2 

soro îoo 

'RETURN 

' lui t. données FDC 
POKE MF10,PFEK<*<3AOO) 
POKE à3Fll,PEE.K(!:3A01) 
PUKE s<3F12,PEEKl?i3A02) 
POKE 43F 13, PEEK (BA03) 
POKE &3F!4,PEEK(*3A02) 
POKE &3FI5,KM 
POKE fc3F16,ï<FF 
BOëUB 7000 
RETURN 

Init données formatage 
POKE ?,3F02, 5:52: POKE !,3F03,S;E5 

«sus ioijoo 

RETURN 
changer données -formatage 

astt! 

INFU!ft3, "taille :",a$ 

IF a*;.;"" THEN POKE &3F00, VAL i "î"+a 

LNPUT&3, "nombre secteurs :",a* 



SON VIDEO 

• w 2000 
i MICRO 
AQUITAINE 

AMSTRAD 0RIC 
THOMSON <> 

ft commodore 

31, cours de l'Yser 
33800 BORDEAUX 
Tél.: 56.92.91.78 



36050 IF a*<>"" AND VAL ( "8tO"+a*K21 THEN POKE 

S,3F01,VAL("S<"+aî.l :P0KE &A0AF, VAL ( "&"*»t? 



3606C 


INPUI#3,"GAP #3 




",as 




36070 


IF a* : THEN PUKE 4 


5F02 


VAL(", 


>"+a*) 


36080 


INPUT#3, "donnée 




" , a.* 




3609C 


IF »*<>»" THEN FOKE i 


3F03 


VALI". 


:"+a»! 


36 10C 


BOSUB 10000: GDSUB 600 









36 m: 


GOSUB 11000 








3412C 


FClUfiN 








3700C 


'Arrêt 








3701C 


DUT IFA7E,0 








37021 


MOUE i:END 








37030 


RETURN 








38001 


"ûemarraqe moteur 








38010 


CALL sta.rtœ 








38021J 


RETURN 








390.00 


'Arrêt moteur 








39010 


CALL stopm 








39020 


RETURN ■ 









Lorsque la presse anglaise emploie des mots 
tels que tphénomènal», «marquant», «idéal» et 
«avantageux», c'est qu'elle a, de toute évidence, 
découvert quelque chose de très spécial. Mais 
lorsqu'il s'agit d'un produit qu'elle connaît déjà par- 
faitement, alors cela doit être quelque chose de 
vraiment spécial. La raison de son enthousiasme 
C'EST L'AMX PAGEMAKER - un logiciel révolution- 
naire -qui permet la réalisation de journaux, affiches, 
prospectus, notices, communiqués - en fait, tout ce 
qui a trait au texte et aux graphismes et cela avec une 
qualité professionnelle extraordinaire, 

C'est un système intégré pour la conception de 
graphismes et de traitement de texte. Les graphismes 
sont en temps réel - avec défilement rapide de haut 
en bas et inversement pour un format de page A4 
-et utilisent le Mode 2, la résolution graphique la plus 
fine sur ordinateurs AMSTRAD CPC. 

VOTRE ATTENTION 5.V.P. 



Vous pouvez écrire le texte directement sur 
écran à l'aide des 16 types de caractères fournis ou 
dessiner votre propre modèle de caractères, au choix; 
vous pouvez charger la machine avec n'importe quel 
fichier ASCII ou fichier de traitement de texte, à partir 
de programmes tels que : Tasword, Amsword, 
Maxam, ou Protext, avec formattage complètement 
automatique du texte sur l'écran pendant le char- 
gement, 





LE PROGR AMME QUI FAIT LA 
UNE DES REVUES. 



Les fonctions de traitement de texte compre- 
nant le centrage, la mise en forme et la justification 
du texte sont disponibles. Est indus un contrôle 
complet de la résolution d'image pour le texte et les 
graphismes ainsi qu'un système d'interlignage. 



UN PROGRAMME EXTRA 

Il offre des possibilités extraordinaires pour le 
dessin, le spraying et la peinture en utilisant soit les 
modèles fournis ou réalisés par vos soins , Un pro- 
gramme de conversion d'écrans permet que des 
écrans créés en Mode 1 et soient utilisés dans le 
Pagemaker. Sont inclus dans le système les fonctions 
couper et coller, transcription, déplacements, rota- 
tions, dimensionnements, ainsi qu'un ZOOM fantas- 
tique. 

L'écran vous permet de visionner trois pages 
de format A 4 à tout moment avant que le travail soit 
sorti sur une gamme importante d'imprimantes telles 
que : Amstrad DMP 2000, Epson FX/RX/LX/LQ, 
Canon PW 1080, K.aga KP 810, Mannesman Tally 
MT-80 + , Seikosha SP-1000A, Star Delta, Star SGLO 
ou toute autre, compatible avec le matériel décrit 
ci-dessus. 

L'AMX Pagemaker nécessite : a) l'Amstrad 
CPC 61 28 ou b) l'Amstrad CPC 664 + 64 K minimum 
d'extension Ram ou c) l'Amstrad 464 + 64 K + un 
lecteur de disquettes (cartes d'extension DK'tronics, 
Vortex ou compatibles). 



Laissons le dernier mot a la presse : 
* Le Pagemaker est phénoménal - il est pro- 
pice à la création lorsque l'on souhaite avoir du texte 
et des graphismes -notices, affiches, prospectus, 
communiqués, feuillets. Ce programme qui était du 
domaine des micros 16-bit jusqu'à maintenant est 
devenu accessible à un prix vraiment avantageux». 

L'AMX, MAGAZINE MAKER : 

Nous avons pensé qu'il était 

temps de vous introduire à l'image 

C'est une combinaison entre l'AMX PAGE- 
MAKER et le DIGITAUSEUR VIDEO AMX. En utilisant 
n'importe quelle source vidéo qui fournit un signal 
combiné et le digitaliseur, les images envoyées à 
partir d'une caméra ou d'un poste de télévision peu- 
vent être converties en images graphiques sur l'Ams- 
trad. Puis elles peuvent être utilisées par l'AMX 
Pagemaker pour illustrer des périodiques ou des bul- 
letins. Le digitaliseur est connecté à la borne 
d'extension et balaye une image complète en 5 
secondes seulement. 

Un programme spécial de dumping de 
l'imprimante est inclus dans la disquette. Il est spé- 
cialement conçu pour produire rapidement des 
images correctement proportionnées avec un 
minimum de halo ce qui donne une reproduction très 
nette de l'image, 

* «Educational Computing» Janvier 1986. 

* Ces prix sont des prix conseillés. 



Les caractéristiques de ce système de digitali- 
sation sont les suivantes : 

• Résolution : 256 par 256 points 

• Un convertisseur 1 bit A/D qui donne 32 tons 
gris en sortie 

• Aucune source d'alimentation externe n'est 
requise, 

Ce système est pour vous l'occasion de vivre la 
véritable révolution qui s'opère dans le domaine de la 
publication électronique. 

Le prix de l'AMX PAGEMAKER est de seule- 
ment 550 F TTC + ; les programmes sont fournis sur 
disquette 3" ainsi qu'un manuel d'utilisation illustré 
en français; le prix du DIGITALISEUR AMX est de 
1 040 F TTC * et comprend les programmes sur 
disquette 3", L'AMX MAGAZINE MAKER (compre- 
nant le Pagemarker AMX et le Digitaliseur AMX) est 
au PRIX DE 1 475 F TTC •. 

DEMANDEZ DES AUJOURD'HUI, CHEZ VOTRE 
REVENDEUR 

AMX PAGEMAKER 

DISTRIBUTION EXCLUSIVE EN FRANCE 



205, rue du Fg. Saint-Honoré 

75008 PARIS 

Tél. : (1)42.89.37 26 - 



W I M G S Microelectranics Distribution 



TESTS DE PRODUITS 
NOUVEAUX SUR PCW 






TELETUTOR CLAVIER 
DE TOTALE FORMATION 

Dire que le PCW est une machine de trai- 
tement de texte et que, depuis, le temps 
que je pianote sur mes AMSTRAD, je ne 
sais toujours pas taper à la machine ! Je 
reste émerveillé devant ces secrétaires 
qui tapent à toute vitesse, avec tous 
leurs doigts, et en contemplant le pla- 
fond ! Mais, aujourd'hui, j'ai essayé TELE 
TUTOR CLAVIER. On peut craindre l'en- 
nui et le travail fastidieux des méthodes 
traditionnelles de dactylographie, mais ce 
logiciel d'apprentissage de la frappe est 
fabuleux ! 

L'apprentissage s'effectue en deux éta- 
pes : clavier et vitesse. Dans la première, 
40 exercices de 1 lignes vous sont pro- 
posés, après un bon positionnement de 
vos mains sur le clavier, le dessin de vos 
mains apparaît à l'écran. La lettre à taper 
se met à clignoter. L'acrobatie à réaliser 
à l'aide du doigt concerné est imagée : 
pour atteindre les rangées supérieures, 
inférieures ou latérales, le doigt s'allonge, 
se recourbe ou se tord. L'erreur éven- 
tuelle apparaît en vidéo inverse et la cor- 
rection apparaît sur le bon doigt. Une fois 
une ligne réussie, on peut la recommen- 
cer sans le dessin des mains (dur, dur...), 
ou passer à un autre exercice. L'objet de 
la seconde partie est la frappe de textes 
inclus dans la notice d'utilisation. Le tra- 
vail consiste à reproduire exactement le 
texte, avec espacement, interlignes et 
ponctuations (il faut même frapper les 
retours-chariot, alors que cette peine 
vous est épargnée dans tous les traite- 
ments de texte !). Avec un rythme de tra- 
vail relativement intensif (une heure ou 
deux par jour), vous parviendrez à taper 
jusqu'à 20 mots/minute en 20 heures. 
Ce logiciel permet de maîtriser un clavier 
AZERTY. On regrettera ici les quelques 
écarts du clavier par rapport aux bons 
vieux claviers français (signes de la ran- 
gée supérieure, et de la droite du clavier 
alphanumérique). L'autocorrection des 
exercices en temps réel et le graphisme 
des doigts sur le clavier, très agréable, 
sont les atouts majeurs de ce genre de 
méthode. Un PCW, tout pour faire une 
parfaite dactylo ! 
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Noël LAGNEU 



THE ELECTRIC STUDIO PEN 
CRAYON OPTIQUE POUR PCW 

Après avoir sévi sur CPC, Electric Stu- 
dio récidive en adaptant son crayon opti- 
que aux PCW. Il est livré avec une notice 
français-allemand (crayon optique s'y dit 
Lichtgriffel ! - le stylo et son interface) 
et une disquette programme. 
L'installation de l'interface sur le bus 
d'expansion du PCW se fait très facile- 
ment. Un détrompeur permet de ne pas 
risquer d'endommager le PCW par un 
positionnement à l'envers de l'interface. 
Il est possible de connecter par dessus 
d'autres extensions, l'interface série 
AMSTRAD, par exemple. Il ne reste plus 
qu'à enlever le bouchon de protection du 
stylo pour le faire fonctionner. Toutefois, 
un réglage de la luminosité du récepteur 
peut être nécessaire. 
La disquette programme contient, outre 
un driver GSX dont nous reparlerons, et 
quelques démonstrations, le programme 
"ARTF" de DAO en lui-même, entière- 
ment francisé. Après son lancement, un 
menu de 1 2 options est affiché à gau- 
che de l'écran. On sélectionne une option 
en la pointant avec le stylo optique. Elle 
apparaît alors en vidéo inverse et on la 
valide par une pression sur la touche 
ESPACE. Un sous-menu associé à ce 
choix apparaît alors, et la sélection dans 
le sous-menu s'opère de la même 
manière. Ce programme est bien sûr très 
complet, et permet entre autres : 

— le stockage et le chargement d'écrans 
sur disquette, 

— de multiples copies d'écran sur impri- 
mante (petit ou grand format, simple ou 
double densité, vertical...), 

— le tracé de segments, de polygones, 
de rayons.,., 

— le dessin à l'aide de crayons, pinceaux 
ou pistolets de différentes tailles. Le posi- 
tionnement très précis des points écran 
désirés peut se faire à l'aide des touches 
curseur du clavier, 

— le remplissage de formes quelconques 
à l'aide de plus de cinquante textures dif- 
férentes, 

— le déplacement de zones, la copie et 
le zoom, 

— l'inversion des couleurs fond et encre, 




— les tracés de triangles, rectangles, 
ellipses, pyramides ou cuboïdes, 

— l'écriture de textes, dans tous les sens 
et de toutes les tailles. 

Mis à part ce programme de dessin, com- 
ment utiliser ce stylo ? Le concepteur 
nous donne un driver GSX. L'utilisation 
avec les programmes interfaces TSX en 
est très simple : prenez DR DRAW ou DR 
GRAPH, remplacez le fichier DDSCREEN 
par le fichier DDESP (venant de votre dis- 
quette stylo optique) dans ASSIGN.SYS, 
et le tour est joué ! Toutes les entrées 
curseur sont alors gérées par le stylo 
optique. Le Basic GSX supporte aussi 
cette extension, mais le client n'en est 
pas avancé pour autant ! A quand un 
manuel d'utilisation clair et précis de 
GSX ? 

.En résumé, la qualité du dessin est aussi 
impressionnante que l'ergonomie du pro- 
gramme. Le PCW s'accommode ainsi 
très bien de son absence de couleurs, et 
met ainsi à profit sa haute résolution. Un 
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CPC-MousePack 

contient - une souris de précision 

- un adaptateur 

- une documentation détaillée 

- une disquette 3" 

Les programmes livrés ensemble avec la 
souris vous permettent de l'utiliser pour 
vos propres programmes ainsi que pour 
le système CP/M ou pour une parfaite 
réalisation de graphiques. 
Le CPC-MousePack est le système 
souris le plus vendu en Allemagne. 
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Compilateur de BASIC "Typhon" 

Selon l'opinion unanime des magazines allemands spécialisés en informatique, le 
"Typhon" est un des programmes les plus importants pour le CPC. 

- le programme objet est jusqu'à 100 fois plus rapide que le programme BASIC. 

- le compilateur peut comprendre plus de 30 instructions supplémentaires 



Le "Typhon" est le leader des compilateurs de BASIC 
pour le CPCen Allemagne 



cassette: 290 ff 
disquette: 340 ff 



Autres produits d'Impérial SOFTware Systems 

- programmes utilitaires pour disquettes 

- MACRO-Assembleur 

- Layout-CAD 

- PCW-Mouse 

Pour des informations plus détaillées et des commandes s'adresser aux revendeurs 
de logiciel en France ou directement à: 

Jmp&trîall gJ@JFSujaire gystftams (gendes frajiKe 

54 Avenue de la Paix F-57520 Rouhling Tel. 87092414 



reproche toutefois à faire au stylo opti- 
que : l'absence d'interrupteur sur le stylo 
oblige la validation par la touche espace 
et le changement d'option par la touche 




STOP. Malgré son prix élevé (plus du 
double de celui des CPCI, cet ensemble 
est l'outil de dessin par excellence du 
PCW. 



FICHE DE ELP 

Une nouvelle gestion de fichiers pour 
PCW vient compléter la liste déjà impo- 
sante de ces utilitaires. Son originalité et 
son intérêt résident dans sa présentation 
et son maniement style LOCOSCRIPT. 
Aucun dépaysement par rapport au célè- 
bre traitement de texte : les 3 lignes de 
choix en haut de l'écran, les sous-menus 
apparaissant en fenêtres et dans un gra- 
phisme venu de LOCOSCRIPT, utilisation 
des touches de fonction et des touches 
de validation + et - entourant la barre 
d'espace, 3 modes de travail... 

Trois modules principaux sont présents : 

— La description des fiches. Elles doi- 
vent tenir dans un écran PCW. On y défi- 
nit le nom des zones, les zones elles- 
mêmes en alphanumérique ou numéri- 
que, et les cadres regroupant certaines 
zones. Ces derniers rendent la fiche plus 
lisible, et influent sur l'ordre de saisie des 
zones dans la fiche. Réfléchissez bien 
avant de construire ce descriptif, la 
structure du fichier associé ne peut plus 
être modifiée ! Les clés de recherche sont 
aussi définies ici et peuvent être consti- 
tuées de plusieurs zones. 

— La gestion des fichiers. On y saisit les 
fiches, on les modifie ou on en supprime. 
La consultation du fichier se fait d'abord 
à partir d'une clé de recherche, puis 
séquentiellement ou à partir d'une autre 
recherche. 

— L'impression des fichiers, Plusieurs 
états peuvent être définis : standard, 
dans lequel les fiches sont imprimées 
comme on les voit à l'écran ; en étiquet- 
tes dont on donne une description très 
complète des zones, et où on peut utili- 
ser les attributs des pas de caractères 
différents et de corps gras ; autres for- 
mats, avec description totale de l'état 
désiré. L'impression se fait entre deux 
fiches déterminées par clés et suivant un 
tri sur la ou les clés voulues. 

On peut remarquer quelques manque- 
ments : les clés doivent être exactes (pas 



de jokers ou de comparaisons), la liste 
des fiches, des clés ou des états n'est 
pas prévue et aucun interfaçage n'est 
prévu avec d'autres logiciels. De plus, le 
Basic reste souvent très lent, mais une 
version beaucoup plus rapide de ce logi- 
ciel devrait être bientôt mise sur le mar- 
ché. 

Malgré ses quelques petites imperfec- 
tions facilement réparables, son look 
LOCOSCRIPT confère à ce logiciel un 
charme certain, Il est à réserver aux uti- 
lisateurs ayant des fichiers relativement 
statiques à gérer. 

NOTE SUR LE 
"LIVRE DU PCW" 

Suite à un important courrier au sujet du 
livre de Patrick LEON, nous apportons les 
quelques éléments de réponse suivants : 
certains lecteurs se plaignent du non- 
fonctionnement des programmes. Ceci 
est toujours consécutif à une mauvaise 
saisie des codes machines proposés, et 
ne met pas du tout en cause la validité 
des programmes. Toutefois, une erreur 
s'est glissée dans le listing du premier 
programme BINAIRE. BAS : le code 
binaire est valide, mais le contrôle des 
erreurs par checksum ne fonctionne pas. 
Il faut donc remplacer GOTO 520 en 
ligne 490 par GOTO 510. Il restera très 
difficile et relativement laborieux de bien 
saisir tous les programmes de l'ouvrage. 
Vous pourrez vous procurer la disquette 
programme de "L'univers du PCW" 
auprès de l'éditeur ou de CPC, au prix de 
150 F. Ceci est un simple conseil pour 
ceux qui se découragent facilement et 
n'arrivent pas à trouver les erreurs de sai- 



QUICK MAILING 
DE TELESOFT 

Première approche de mailing avec 
LOCOSCRIPT sur PCW, ce programme 
permet la gestion d'un fichier client, avec 
des possibilités de recherche, de tri et de 
sélection élaborées. Son association 
avec un document issu de LOCOSCRIPT 
permet ainsi te courrier personnalisé, 
Malheureusement, la mention LOCO- 
SCRIPT est nettement optimiste : seuls 
les fichiers ASCII créés par la version 
1.21 sont traités. Finies les fioritures 
(gras, pas de caractères non standards, 
italiques, centrages, etc.). N'importe quel 
autre éditeur de fichiers ASCII ferait aussi 
bien l'affaire ! A quand un driver d'im- 
pression des fichiers LOCOSCRIPT sous 
CP/M ? 



OPTICAISSE 

DE OPTIMA CONCEPTS 

Sélectionné par AMSOFT dans son cata- 
logue, ce logiciel permet la tenue d'un 
livre de caisse avec édition de tickets. 
Très complet, il autorise entre autres : 

— la gestion des acomptes, avoirs, mou- 
vements de caisse, modes de règlement, 

— la protection par mot de passe des 



chiffres d'affaires cumulés, des mises à 
jour et des restaurants, 

— la gestion de tickets de caisse person- 
nalisés avec raison sociale du commer- 
çant, lignes publicitaires et 1 5 articles par 
ticket. Le listing est double, de largeur 
1 cm (0,20 F par ticket environ}, 

— les clôtures hebdomadaire et men- 
suelle avec édition d'un journal de caisse 
très complet, . 

Très simple d'utilisation, ce logiciel nous 
paraît être un outil puissant pour tous 
commerces non alimentaires (habille- 
ment, restauration, fleuriste..). Une 
configuration PCW-OPTICAISSE sup- 
porte largement la concurrence d'une 
caisse enregistreuse, en nettement 
moins cher. 




VOTRE NOUVEAU 

SPECIALISTE 

AMSTRAD 

En plein centre-ville 

Parking assuré 

20, rue de la Gare 

62300 LENS 

Tél. 21.28.42.24 



Si uous avez l'intention de CREER 
ou si vous avez déjà créé 



VOTRE BOUTIQUE MORMAIIQUE 



rejoignez nous avec la franchise 
SON UIDEO 2000 et devenez un 
distributeur POINT MICRO pour 
«OINS DE 20 000 Frs ! ! ! 



DISTRIBUTEUR AGREE AMSTJftD.COMHODOBE 
hTaFI.ORK et CONFATIBLES PC . 

RENSEIGNEMENTS 
S6 92 SI 78 
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STRUCTURE DU BASIC 
MALLARD SOUS CPM 3.0 



Noël LAGNEU 



eut allons Ici discuter da quolquos particularités du Basic 
Mallard sur PCW. La structura das lignas d'Instructions at das 
I tablas da varlablas sont oxposéos, ainsi que la lista compléta 
das tokans Basic. Qualquas axamplas on Illustrant l'amploi. 



ORGANISATION INTERNE 

Le Basic Mallard lancé sous CP/M 3.0 
dispose d'une zone de mémoire libre de 
31597 octets, et la limite haute de la 
mémoire accessible est 62581 . Le pre- 
mier octet de codage des lignes Basic se 
trouve en 31382. Un programme Basic 
est stocké sous forme de lignes codées. 
Il est directement, suivi par une zone 
appelée zone variable. La description de 
ces deux zones nous permettra de mieux 
comprendre le fonctionnement de l'inter- 
préteur. 

TABLE DES VARIABLES 

Elle est construite au fur et à mesure de 
la rencontre des nouvelles variables par 
l'interpréteur. Sa structure est la sui- 
vante, pour chaque variable : 

— Nom de la variable, codé en ASCII. Le 
dernier octet du nom a son bit 7 mis â 
1 (on : lui a ajouté 128). 

— code variable. Il peut être : 

1 : variable entière 

2 : variable chaîne 

3 : variable réelle 

7 : variable double précision 

— Les octets suivants dépendent du 
type de variable. Pour les entiers, les 
deux variables suivantes donnent la 
valeur binaire. Pour les réels ou double 
précision,, les 4 ou 8 octets suivants don- 
nent la valeur en virgule flottante. Pour 
les chaînes alphanumériques, l'octet sui- 
vant contient la longueur de la chaîne, 
et est suivi par l'adresse de stockage 
effective. 

Dans tous les cas, la fonction VARPTR 
vous donne l'adresse de l'octet suivant 
le code variable, Prenons l'exemple sui- 
vant (Listing 1 ) 

10 abc%-1 

20 chaîne$ - "toto" 
VARPTR(abc%) vaut après exécution 
31424. Vérifiez que "abc" est bien 
stocké de 31240 à 31422. 
PEEK(31423) vaut 1, variable entière 
codée ensuite sur deux octets. De 



même, VARPTR(chaîne$} vaut 31 437 et 
on peut effectuer les mêmes vérifica- 
tions. 



DESCRIPTION DE 

LA ZONE PROGRAMME 

Tout programme basic installé en 
mémoire possède une structure par ligne 
que nous allons examiner. On doit 
d'abord élcaircir un point : les mots-clés 
du Basic ne sont pas installés tels quels 
en mémoire {5 lettres pour PRINT, 9 pour 
RANDOMIZE...), mais sont codés sur un 
ou deux octets qui sont appelés TOKENS 
de la fonction. Vous trouverez ici la liste 
complète de cette table de codage pour 
le Basic Mallard, et un exemple d'utilisa- 
tion. 

Chaque ligne d'instructions possède la 
même structure en mémoire centrale. 
Longueur, numéro de ligne, instruc- 
tions... Un exemple vaut mieux qu'un 
long discours. Prenons le programme 
précédent.. Le codage commence en 
31382 : 
Adresses 

31382-31383 Longueur 13 octets 
31384-31385 Numéro de ligne 10 
31386 Code variable entière 2 

31387-31388 Longueur du nom de variable + 4 
31389-31391 Nom de variable (a b c+128) 

31392 8mEC Token de "-" 

31393 Codage de la valeur numérique 

31394 Q de séparation 

31395-31396 Longueur 21 octets 

31397-31398 Numéro de ligne 20 

31399 Code variable chaîne 3 

31400-31401 Longueur du nom de variable + 4 

31402-31407 Nom de variable 

31408 ShEC Token de "-" 

31409-31414 Valeur de la variable (y compris") 

31415 de séparation 

Code variable : il peut être de 4 pour les 
réels, 2 pour les entiers, 5 pour les dou- 
ble précision, 3 pour les chaînes et 13 
pour les types numériques non fixés. 



Codage numérique : les valeurs numéri- 
ques de à 9 sont codées par un octet 
de 14 à 23. Les valeurs de 10 à 255 sont 
codées sur deux octets, "24" et valeur. 
Les valeurs entre 256 et 65535 sont 
codées sur 3 octets, "25" et 2 octets 
de valeur. Au-dessus et pour les réels, 
il faut 5 octets : "30" et quatre octets 
de virgule flottante. 

Rien ne vaut l'expérimentation. Essayer 
de taper d'autres lignes de programmes, 
et de comprendre ensuite la structure de 
ligne, en changeant aussi les instruc- 
tions ! 

APPLICATION 

Les applications possibles de la manipu- 
lation des tokens Basic sont multiples. La 
modification du programme par lui-même 
à l'aide de POKEs est souvent utilisée 
pour la protection des programmes 
(impossibilité de lister...). Nous en don- 
nerons ici une application simple, mais 
instructive. 

Lors de l'exécution d'un programme 
Basic, l'ordre PRINT dirige les sorties vers 
l'écran, l'ordre LPRINT vers l'imprimante 
et l'ordre PRINT # vers le fichier ouvert. 
La manipulation que nous envisageons 
est de rediriger les sorties : le programme 
initial est écrit avec sortie console, et 
quelques POKEs à l'endroit des PRINT 
permet, suivant le cas, d'utiliser n'im- 
porte quel périphérique de sortie. Le lis- 
ting Basic DEMTOKEN.BAS en donne un 
exemple. Le saut en 1000 permet d'ins- 
taller en mémoire les tokens voulus. La 
difficulté est bien sûr de retrouver tous 
les PRINT du programme (adresses des 
poke de 1040 à 1050). Mais avec un 
peu d'organisation, ceux-ci peuvent être 
par exemple toujours positionnés en 
début de ligne, et la numérotation per- 
mettra rapidement de retrouver tous les 
tokens &hB3du programme. Nous lais- 
sons à votre imagination le soin d'amé- 
liorer cette méthode, et de trouver de" 
nouvelles applications ! 



Listing de DEMTOKEN . BAS 



IKPUT " No> du fichier ASCII ; \fic»:0PEN "oVl.fic» 



Démonstration d'utilisation des tokens 



100 

110 

120 

130 

140 ' 

ISO INPUI ■ Chaîne désirée : ',»» 

160 INPUT " Sortie dssiree ( l:iip 2:con 3:fithier 4;fin 

165 IF dl=4 THEN CL0SE(1);SI0P ELSE 60SUB 1000 

210 PRINT " Test de derouteient en sortie ■ 

220 PRINT ' ' 

230 PRINT a* 

240 60TO 140 

1000 ON dC60T0 1010,1020,1030 

1010 ottll=aHA6:or.t2J=SH20;60T0 1040 

1020 oc t H<SHB3 : oc t2ï«lH20 : fiDTO 1040 

1030 octU=aH84:oct2J=aHf:60T0 1040 



1040 P0KE 31636, octll 
1045 P0KE 31676, octll 
1050 PDKE 31687, octll 
1100 RETURN 



P0KE 31637,ott21 
POKE 31677, 0tt21 
PDKE 31688, oct2I 



TDKENS BASIC CODES SUR UN OCTET 



60 AUTO 


AO 


KILL 


CG 


RETURH 


EO STEP 


SI CALL 


a; 


LET 


C: 


RSET 


Kl TAB 


62 CHAIN 


AS 


LINE 


C3 


SUN 


E2 THEN 


83 CLEAR 


a; 


LIST 


Ci 


SAVE 


E3 TO 


34 CLOSE 


A< 


LLIST 


a 


STOP 


E4 USING 


85 COMKON 


A5 


LOAD 


C5 


StfAP 


E5 USR 


86 COHT 


A6 


LPBINT 


ce 


SYSTEM: 


ES. VARPTR 


67 DATA 


A? 


LSET 


C7 


TROFF 


E7 HIMEM 


83 DEF 


Af 


KEEGE 


Cf 


TRON 


ES OSERR 


89 DEFDBL 


AS 


MIDS 


cç 


WAIT 


E9 — 


8A DEFINT 


AA 


HAKE 


a 


VEBB 


EA — 


8B DEFSEG 


AE 


KEXT 


CI 


toile 


EB > 


BC DEFSNG 


AC 


NEW 


ce 


VIDTH 


EC 


BD DEFSTH 


AD 


ON 


CD 


VRITE 


ED > = 


BE DELETE 


AE 


ON EftRDR GOTO 


CE 


WRITE » 


EC < 


8F BIS 


AF 


OPEN 


CF 


MEMORY 


EF O 


90 DIR 


BO 


OPTION 


BC 


DISPLAÏ 


FO < = 


91 EDIT 


Bl 


OUT 


91 


CREATE 


FI + 


92 ELSE 


B2 


POKE 


D2 


OUTtf 


F2 


93 EHD 


B3 


PRINT 


D3 


TYPE 


F3 * 


94 ESA 


B4 


PSI NT # 


E4 


WAITV 


F4 / 


95 ERAEE 


B5 


PUT 


B5 


ZOSE 


F5 


96 ERROR 


B6 




D6 


BUFFE8S 


F6 \ 


9T FIELDS 


B7 


RANDOKIZE 


D? 


— 


F7 AND 


96 FILES 


B8 


READ 


D8 


— 


F6 EQV 


99 FOU 


B9 


REK 


D9 


ALL 


F9 IKF 


9 A G ET 


BA 


REH 


DA 


AS 


FA MOD 


9B GOSOB 


BB 


8ENUM 


DB 


BASE 


FB OR 


9C GOTQ 


BC 


RESET 


DC 


ERL 


FC XOR 


9D IF 


BD 


RBSTORE 


T)D 


ERR 


FD NDT 


9E I8PUT 


BE 


RESUHE 


DE 


FN 


FE — 


9F IHFUT # 


BF 


RESUME 


DP 


SPC 


FF — 




TOKENS SUR 


2 OCTETS : 


FF . . 


01 ABS 


14 


LOF 


27 


INPW 


6F SEEKRAHK 


02 ASC 


15 


LOG 


28 


STRIPS 


70 SEEKHEC 


03 ATN 


16 


LOG10 


29 


VERSION 


71 SEEKSET 


04 CDBL 


17 


LOVEES 


2A 


CVIK 


72 DECS 


05 CHRï 


18 


LPOS 


2B 


CVUK 


73 FIND5 


06 CI NT 


19 


KKDî 


2C 


SKIKÎ 


74 HEXÏ 


O? COS 


1A 


HKIÎ 


2D 


MKUKî 


75 INKEYî 


06 CSBG 


1B 


KKSS 


63 


CONSOLIDATE 


76 INPUTî 


09 CVD 


1C 


D EEK 


64 


RANKSPEC 


77 1NSTR 


OA CVI 


1D 


POS 


65 


ADDKEY 


78 LEFT5 


OB CVS 


1£ 


SNG 


66 


ADDREC 


79 MAX 


OC EOF 


IF 


SIN 


67 


DELKEY 


7A MIN 


OD EXP 


20 


SPACEÏ 


68 


FETCHKEYS 


7B OCTS 


OE FIX 


21 


■5QR 


69 


PETCHSANK 


7C RIGHTî 


OF ERE 


22 


STRE 


6A. 


?ETCHREC 


7D SHD 


10 IN? 


23 


TAH 


6B 


-OCK 


7E ROOND 


il INT 


24 


JNT 


6C 


SEEKKEY 


7F STRINGÎ 


12 LEN 


25 


/PPERî 


6D 


SEEKNEXT 




13 LOC 


26 


VAL 


■6E 


SEEKPREV 





BASIC 
MALLARD 
SUR 6128 



Attention, ces lignes ne s'adressent qu'aux possesseurs d'un 
CPC et d'une licence d'utilisation du Basic Mallard sur PCW ! 
Nous vous proposons d'installer sur l'un le basic de l'autre... 

Les avantages du Basic Mallard sur le Basic Locomotive des 
CPC est indéniable sur certains points : gestion des fichiers 
à accès direct, des fichiers indexés avec JETSAM, double pré- 
cision, possibilités d'autostart, qualité de la protection basic 
par cryptage, utilisation de logiciels ou sonores bien sûr. Cha- 
que application trouve donc son basic le plus adapté. 

Le CPC étant branché, on se place sous CP/M 2.2 ou sous 
CP/M 3.0 avec un CPC 6128. Le fichier BASIC.COM du PCW 
a été auparavant copié sur une disquette (formatée sur CPC) 
à l'aide de PIP. Avant utilisation, vous devrez réadapter le cla- 
vier de votre CPC. A cette fin, vous créerez le fichier KEYS.BS 
donné plus loin à l'aide d'un éditeur quelconque. Dès lors, l'ins- 
tallation du Basic se fait par les deux commandes suivantes ■ 

A> SETKEYS KEYS.BS 

A> BASIC 

Sous CP/M 3.0 il vous reste, en conditions normales, 31 597 
octets libres, exactement comme sur le PCW. Sous CP/M 2.2, 
il ne vous reste par contre que 9325 octets, ce qui limite l'in- 
térêt dé la manipulation. 



Listing du Fichier KEYS.BS 






H 


" t " 


1 


S 


" f F" 


8 


H 


" TA" 


2 


H 


"t'iUE"' 


66 


H 


" TC" 


16 


H 


" TG" 


9 


H 


" TH" 
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22, rue de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19 h 

REVENDEUR OFFICIEL AMSTRAD FRANCE 



SUPER-PROMOTION 




CPC 6128 couleur 
+ imprimante 
DMP2000 6290 F 

CPC 

□ cpc 464 couleur 3ff30F3590F 

D cpc 464 monochrome 3#9Tj F 2390 F 

Dcpc 61 28 couleur .«TS F 4790 F 

□ cpc 61 28 monochrome -3OTD F 3590 F 

Q imprimante DMP 2000 1990F 

H interlace RS 232 (Amslradl 590 F 

Q souris 690 F 

D joystick compétition PRO 5000 195 F 

H disquette vierge 3 pouces 35 F 

D 1er lecteur de disquettes 1 990 F 

D 2eme lecteur de disquettes 1590 F 

n cordon 2ème lecteur disquette 150 F 

D magnétoptione (avec câble) 340 F 

D câble magnéto 50 F 

Rallonge alimentation + vidéo 

□ ne soye; plus colle à l'écran, rallonge. 464 130 F 
D ne soyez plus collé à l'écran, rallonge. 6128 1 BO F 
U housse pour moniteur + clavier 1 75F 

Cassettes vierges C20 

Dles5 « F 

niesio m F 




Imprimante CITIZEN 1200 

120 CPS ■ matrice 9x9- traction ou friction - jusqu'i 

3 ex. compatible EBSON - garantie 2 ans - interface cen 

ironie intégrée. 

□ citizen 120 D 2490F 

Produits DK TRONICS 
Extension G4 K ; 

D pour 464-664 599 F 

extension 256 K.ROM 

D pour 464-664 1-199 F 

□ pour G1Z8 1-199 F 

extension 25G K. silicon-disk 

□ pour 464-664 1-199 F 



. 1.1! 



□ pi 

stylo optique 

D pour 464-664 en cassette 249 F 

D pour 464-664-6128- en ROM 349 F 

synthë vocal 

D pour 464-664 en cassette 349 F 

D pour 464-664-6128 en ROM 490 F 





LOGICIELS 

C D 

D10DF 

□ 145FD195 F 

- D 99 F 

- D 99 F 

- D 99 F 

□ 100 F □ 155 F 

□ 299 F □ 299 F 


CPC 




C D « 










• master Ironie n" 1 .... 


l'affaire Sydney 
l'affaire vera cru 
l'ère du verseau 




□ 150FD199F • 
. a 1 65 FD199F • 








a ikari warriors 


la geste d'artiilac 


, D255 FD255F • 


Le diam. de l'île maudite . . 

le pacte 

le secret du tombeau .... 

les 4 saisons 

les mines du mi aquantos. . 
light force 




s highlander 

• acre jot 

america's cup chall 

avenger 

• 3 d grand prix 

• 4 e protocole 


DQDDDDDDODC 

□□□□□□ □□□[: 


- D220F , 

□ 1B0FD199F . 

□ 12DFD220F _ 
. a 125 FD185F - 

D1D5 FD 160 F _ 


m. g. t. + bactron 

magma» 

masque 

meurtre sur l'atlantique 

micro scrabble 

mission delta 

monopoly 


□ □□□ 

n3333 


• asphalt 

• autof. a l'assembl 

• bactron 

• balade au pays big ben 


DQDDC 


□ □□□□ 














* bridge 


. O 255 F □ 29D F 


□ 1ÎQFni9D F • 






oméga planète invisible 
pédagociciel (an. compl.) . . 












- 0450 F 

- maoF 






prndigy .... 




D120FD160F . 






rabbot 














. □ 11QFCI175F 


shogun. .... 

skyfDx 

space moving . 




□ 115 FD165F " 




□ 110FD165 F 
























tempest . . . . 






• dr graph 


- □ 649 F 




thanatos. . . . 
solda million (n 
sold a million (n 
solda million (n 

lop secret . . . 


1] 

2) 

3) 




• fer et flammes! 2 dsqi 


- D295F 


. □n0FD170F • 


• figbl. war. + way ex. . . 

• tire lord 

• foot 


- □ 240 F 

□ 100FQ160F 

□ 120 FD 160 F 


. □110FD170F • 

□ 12DFD1B0F • 

- D240F • 


t glirier rider 

# graphie city 

t gunf. + way tg. + visi 


□ 100 Fn 145 F 

□ 15DFD195F 

□ H5FG195F 

□ 180 F 

- □ 240 F 


translock. . . 
minier games . 




• • • i 

□ □□□ 

□ □□ 


* h.m.s cobra 




- □ 180 F m 



INTERFACE T.V. 



NOUVEAU MODELE 




D aliéner 

□ am-stram dames . . 

□ autofor. assembleur 

□ banq/échn. (éd. aries 

□ batman 

□ blocus 

_l bridge player 3, . , 

□ cobol (notice angl.) . 

□ colossus chess4 . . 

□ comptabi. (éd. aries) 

□ compte banq. (éd. sn 



199 F 
220 F 
550 F 



LOGICIELS PCW 

□ fairlighi 

□ force 4 + mis. dett 

□ gpll(ed arkenciei; 

□ graphol. + bioryth. 

□ histoire d'or. . . . 



1750F 
. 170 F 
, 1S0 F 
. 760 F 



245 F 

1175F 

□ lang. "c" (not angl.) . . 550 F 

Dmultiplan 498 F 

Dnostradahur 590 F 

□ polymail + polyword. . 460 F 



□ space invarier 1 60 F 

□ tassword 80D0 450 F 

□ tomahawk 210 F 



LIVRES 



I I 



, 



..nw 



PCW 

□ PCW 8256 5925 F 

DPCW8512 7090 F 

Dext. 256 Kpaur 8256 . 450 F 

□ 2 e 1ect. piv.8256 '990F 

D stylo optique 890 F 

Dinterf. RS 232 cenvonic . . . 090 F 

Dhoussefrron i davier + imp) 299F 

□ ruban imp ame (pai 7) 1 98 F 

□ disquette 3 ' (DF 001 79 F 

□ allonge pcwi.mp. t al.) 275 t 

TIRVITT Z 

Esthétique, robuste, pratique JeTIRVITT 2 vous séduira ! 
Contacts par micro-sivilches. un contacteur sous le 
socle permet le choix 4 ou 8 directions 

□ TIRVITT2 150F 

"Il ne lui manque que la parole", synthé. V0C1 la lui donne I 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

□ synthétiseur vocal (prog. sur cassette) 499 F 

D synthétiseur vocal prog. sur disquette) 549 F 

««WOOÊEE 




par la majorité di 



s de graphisme. Utilisée 
s de logiciel cette tablette 
vous seuuira par sa simplicité d'utilisation et la qualité 
"top niveau" des résultats obtenus, (ex. options : faire 
des points, traits, boîtes, cercles, texte, remplir, "zoom",..] 
□ graphiscop 990 F 



□ polypl. + polices n° 1 ..460 f 

□ polyprint + polywurd .. 490 F 

□ polyprogram 1185 F 

□ pros./suiv. cl, (éd. aries) 350 F 
Dquick mailing 790 F 



9 F 
. 350 F 




Des boîtes géniales pour 

□ pour disquettes 5" 1/4. 

□ pour disquettes 3" et 3" 1/2 

□ po, 



100F 



□ amstrad en musique . 

□ clefs pour amslrad 11 

□ lefspour amstrad 12 . 



120 F 
135 F 
..140 F 
155 F 



□ cp/m + sur epeet pcw 

□ gest. pcw amstrad ... i ;s r- 

□ graphis. et sons du cpc. 1 29 F 

□ Ass. de l'amstrad. . . 105 F 

□ la bible des cpc 199 F 

□ basic doigts cp 149 F 



□ langage machine cpi 

□ routines du cpc. . . 

□ liv. lecl. disq. cpc. . 

□ loge sur cpc. , . . 

□ peeks pokes du cpc 



Câble imprimante AMSTRAD 

_ • Vous permei de connecter votre AMSTRAD ï 
,. • porte quelle imprimante au standard "centronic' 

r • D cible imprimante 

49 F * U ruban imprimante DMP1 (par 2) 



. 149 F 
9F 



□ ruban imprimante DMP 200D.. 



Disk et tout. ass. sur cpc 200 F * ADAPTATEUR PERITEL TOUS CPC .. 



COMMENT COMMANDER : Cocher le|s| article|s| désiré(s] p 



e feuille à part Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F pour achat supérieur a 1000 F). „ 



.ORDINATEUR : □ 6128 coul. □ B12B mono. □ 484cuul. 
TÉl CODE POSTAL 



□ 464 mono. □ 8256 □ B512 
VILLE 



O? Mode de paiement : D chèque / D mandat / □ contre-remboursement {prévoir 20 F de frais) - envoyer le tout à : ORDIVIDUEU 20, rue de Montreuil 943(10 VINCENNES. 



m 



MUSICTUTOR 

Un système musical unique 



Marcel LEJEUNE 




La société T.M.P.I. (Techni-Musique et 
Parole Informatique) a acquis auprès des 
administrations une solide réputation 
dans le secteur de la synthèse vocale. En 
effet, son synthétiseur de parole, apparu 
sur le marché il y a plus d'un an, a été 
le premier modèle du genre à s'exprimer 
correctement dans notre langue, sans 
l'horrible accent anglais qui caractérisait 
les produits concurrents. Par ailleurs, 
cette société est également connue pour 
avoir vendu à l'Education nationale 
360 000 logiciels d'enseignement musi- 
cal. 

Music Tutor est un tout nouveau produit 
destiné à apprendre seul, ou en école de 
musique, à jouer d'un instrument à cla- 
vier. L'ensemble se compose d'un 
synthétiseur stéréophonique se connec- 
tant sur l'arrière de l' AMSTRAD, d'un 
clavier comportant 4octaves et d'une 
disquette. Le synthétiseur comporte un 
connecteur femelle qui se raccorde à la 
prise extension située à l'arrière de l'or- 
dinateur, et un connecteur mâle qui per- 
met le raccordement du ou des lecteurs 
de disquettes. Sur le côté droit se trouve 
un connecteur 16 points pour le clavier. 
La liaison se fait par l'intermédiaire d'un 
câble en nappe. Enfin, un jack permet de 
raccorder le synthétiseur à un amplifica- 
teur stéréophonique. 
L'instrument ainsi réalisé est polyphoni- 
que et permet de jouer jusqu'à 1 2 notes 
simultanément. Mais attention, Music 
Tutor n'a pas la vocation d'être un 
synthé de scène, et il ne faut donc pas 
s'attendre à de gros sons comme un 
DX7 de Yamaha. N'oublions pas qu'il 
s'agit d'un instrument d'étude, et TMPI 
a choisi un son de base comparable à 
celui du traditionnel guide-chant électri- 
que. Malgré tout, nous verrons au para- 
graphe du logiciel que' l'enveloppe de 
volume peut être modifiée. Pour en finir 
avec le clavier, signalons que la largeur 
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des touches est au standard internatio- 
nal, contrairement à certains jouets et, 
de plus, leur contact est fort agréable. 

LE LOGICIEL 

La première disquette comporte le logi- 
ciel de composition et un vingtaine de 
morceaux de musique prêts à l'emploi. 
Le programme de composition permet 
l'écriture de 4 voies musicales, ayant 
chacune sa propre sonorité modifiable, 
à l'aide du générateur d'enveloppes de 
volume. L'utilisateur peut ainsi écrire 
n'importe quelle partition sans connais- 
sance particulière de la musique. Une fois 
la saisie effectuée, le synthétiseur jouera 
le morceau en entier ou page après page, 
à votre convenance. Il est même possi- 
ble d'imprimer la partition si vous dispo- 
sez d'une imprimante compatible Epson. 
L'intérêt principal de Music Tutor réside, 
à notre avis, dans la possibilité de jouer 
une partition choisie en la déchiffrant sur 
l'écran de l'ordinateur, tout en étant 
accompagné automatiquement sur les 
trois autres voies {basse, accompagne- 
ment et contre-chant). 
La seconde disquette livrée avec le 
synthétiseur comporte un cours de sol- 
fège comprenant un enseignement à 
base de cours et une série d'exercices en 
clé de sol ou de fa, ainsi que des dictées 
musicales et des leçons de rythme, TMPI 
a voulu faire de Music Tutor un produit 
évolutif et prépare de nouveaux logiciels 
qui viendront augmenter les possibilités 
du système. On pourra, par exemple, 
visualiser le clavier sur l'écran avec une 
animation indiquant les touches à pres- 
ser durant l'exécution d'une partition. 
Enfin, de nouveaux morceaux de diffi- 
culté croissante seront disponibles pro- 
chainement sur disquette. 
Techni-Musique et Parole Informatique, 
tél. 73.26.21.04. 



COURRIER DES LECTEURS 



Dans cette rubrique, nous aborderons les 
sujets qui vous préoccupent et dont vous 
faites étalage dans le courrier que vous 
nous adressez. 

L'extension RAM DK'TRONICS, 
transforme-t-elle le 464 {ou le 664) en 
6128 ? 

Nous avons proposé à nos lecteurs un 
banc d'essai de cette extension RAM 
bien séduisante. Le test avait été effec- 
tué sur un 664, ce qui avait permis de 
constater que dBase II pouvait être uti- 
lisé. Par contre, sur un 464, il semble- 
rait que ni MULTIPLAN, ni dBase ne tour- 
nent. En fait, la DKTronics et le logiciel 
qui l'accompagne, ne transforment pas 
complètement votre CPC 464 en 61 28 
(problèmes de bankswitch'ing et de nou- 
velles instructions). 

La solution idéale consiste à changer la 
ROM du CPC 464 en la remplaçant par 
celle du 6128, tout en implantant une 
DKTronics. L'illusion devient parfaite ! 

// serait bon de faire figurer, avec chaque 
programme publié dans CPC un tableau 
des variables utilisées. De plus, ne pas 
négliger d'indiquer sur quelle (s) 
machine(s) peut tourner le logiciel. 
Si le problème de la liste récapitulative 
des variables n'est pas facile à résoudre 
et dépend essentiellement de la bonne 
volonté des auteurs (de même que la 
publication d'un organigramme, souvent 
demandée...), les lecteurs de CPC pour- 
ront remarquer que, désormais, un petit 
tableau figurera avec nos listings afin 
d'indiquer sur quelles machines le pro- 
gramme peut être utilisé. 

Pourriez-vous éviter l'utilisation de la let- 
tre "I" (L minuscule) dans les variables, 
celle-ci se confondant aisément avec le 
chiffre 1 ? 

Même réponse qu'à la question précé- 
dente : ceci ne dépend que de l'auteur, 
et il nous serait difficile, à la rédaction, 
de modifier les programmes en consé- 
quence. Rappelons que les programmes 
sont envoyés, par ieurs auteurs, sur sup- 
port magnétique, C'est sous cette forme 
qu'ils sont, testés avant publication. 
L'édition du listing, reproduit par procédé 
photographique, a lieu à partir du pro- 
gramme en mémoire. 

Qu'est-ce qu'une compilation ? 
Nos lecteurs confondent parfois ce 
terme, utilisé souvent à tort (ou plutôt 
par déformation) par les éditeurs de logi- 
ciels. En effet, on voit de plus en plus 
apparaître sur le marché des disquettes 
ou cassettes sur lesquelles sont réunis 
plusieurs jeux sous le vocable de "com- 
pilation". 

En fait, la compilation est l'opération réa- 
lisée par un compilateur, logiciel qui 
transforme un langage source (Basic, par 
exemple) en langage objet exécutable 



par le microprocesseur. Rappelons que 
cette opération a lieu une fois pour tou- 
tes, à l'inverse, de l'interprétation (le 
Basic AMSTRAD est un langage inter- 
prété) qui retraduit à chaque fois la ligne 
de programme en cours d'exécution 
avec une perte de temps considérable... 

Comment obtenir, sur l'imprimante, l'ac- 
cent circonflexe ou le tilde ? 
C'est très simple, il suffit d'envoyer suc- 
cessivement trois codes : la lettre e, le 
backspace (retour arrière d'une position), 
puis l'accent. De même pour le tilde... Le 
retour arrière est obtenu par CHR$(8). 
Relisez attentivement le manuel de votre 
imprimante : en règle générale, tout ceci 
est clairement expliqué. 

BUG AMSTRAD 

On va ouvrir une rubrique ! Thierry 
MATHIAS nous en signale un beau, sur 
464 uniquement. Pour vous en convain- 
cre, essayez ?( - 1 )! 1 . Pas mal, non ? 
Heureusement, l'école a été inventée 
avant les 664 et 6128... 



A PROPOS DU PROGRAMME 
"MASQUE DE SAISIE" 
(CPC HS n° 2) 

L'auteur propose une modification 
mineure, visant à conserver la fonction 
"DEL" après avoir activé le retour à la 
première question, pour corriger. 
La ligne. 390 seule sera modifiée. Il suf- 
fit d'insérer une instruction B1(T) = " " 
entre le IF THEN et le PRINT INVERSE$. 



NOTRE GROUPE RECHERCHE 

2 COLLABORATEURS(TRICES) 

pour participer à la rédaction de 
ses revues spécialisées. 

Il(s) ou elle(s) devront être dispo- 
nibles, dynamiques et sauront 
rédiger avec humour. Une 
expression écrite aisée est 
nécessaire. 



LIEU DE TRAVAIL : 
RENNES 



près de 



1 er poste : une excellente con- 
naissance des ordinateurs de la 
gamme AMSTRAD et de leur 
environnement matériel et logi- 
ciel est demandée. 

2 8 poste : de solides connais- 
sances sur les ordinateurs com- 
patibles PC sont indispensables 

pour être sélectionné(e). 

Appelez le 99.52.98.1 1 et 

demandez Denis BONOMO ou 
Marcel LE JEUNE pour un 
entretien. 



CONÇQURS INFORMATIQUE 
CPC 

RÉSULTATS DE 
LA CATÉGORIE 
ÉDUCATIFS 

Vous avez été très nombreux à nous 
envoyer des programmes éducatifs dans le 
cadre de notre concours. Nous avons pu 
parcourir ainsi tous les domaines : 
mathématiques, histoire, géographie, 
angues vivantes ou dites "mortes", 
français... (la liste n'est pas exhaustive). 
Le dépouillement a été effectué avec le 
sérieux qui caractérise CPC, d'après les 
critères suivants : intérêt du thème choisi, 
présentation, clarté de la notice 
explicative, qualité de la réalisation et 
enfin compatibilité aux trois modèles de 
CPC AMSTRAD, ce qui a parfois pénalisé 
les programmes ne tournant pas sur 464. 
L'heure est maintenant venue de proclamer 
la liste de gagnants et rendez-vous 
prochainement pour la distribution des 
prix aux auteurs ayant participé dans la 
catégorie Utilitaires. 

1" Prix : Michel et Jack PE1GNEY de 

Senlis (60) pour VISION gagnent un 
voyage pour deux personnes aux Canaries. 
2* Prix : Franck BETTON de Guengat (29) 

pour TOP CALCUL gagne un AMSTRAD PC 
1512. 

3- Prix : Vincent COURTOIS de Watlignies 
(59} pour EUROGEO gagne un walkman et 
5 logiciels de {eux. 

4- Prix : Didier ROSENSTRAUB de St. 

Vrain (91) pour FRANCE gagne un 
abonnement de deux ans à CPC. 

5- Prix : Fabien SALIS de St. Marcel les 
Valence (26) pour AMSTRADUCTION 
gagne un abonnement de un an à CPC. 

6- au 10* Prix : Laurent GROSSE de Gray (70) pour 
CONJUGAISON ALLEMANDE, 
Patrick SENE de Cambrai (59) pour 
LV3, 

Jean-YveS DUFRANI de La Valette 
(83) pour FONCSTAT, 
Damien DEBAISIEUX de 

Villeuneuve d'Ascq (59) pour 
MATHEMATIQUES, 
Gérard VILLANFIN de Bagneux 
(92) pour TRIGO 36, 
gagnent un livre d'aventure. 
Tous les autres participants recevront une bande dessinée. 
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<T TRIANGLE 
DE PASCAL 




Albert ROUX 



I ncore un programme pour essayer de voir clair dans les entrail- 
I les du CPC. Ce que l'on peut en faire ? Cela dépend avant tout 
Ide l'esprit de curiosité ou de création de chacun. 



C,a fonction RND puisqu'il faut 7 l'appeler 
t/àh son nom . Génération pseudo- 
âffp^J-pjj'ïî, laisse présager que ie terme 
tJ^udâesL lourd de sens, pas d'illusions. 
^ffîqèV i p$$ c ' u vrai hasard... comme au 
kUooipVciJJfime les numéros des plaques 
itj'if^^rDyiques des voitures que vous 
V<jy!?z/passer dans la rue. Non. c'est sans 
tywraïsie. froid, mathématique, issu 
fcpune équation, donc risque de périodi- 
cité plus ou moins cyclique, dépendant 
île la formule mathématique génératrice. 
Il ne laul pas exagérer, ça ne marche pas 
trop mal. mais bien sur que dans certains 
cas. être cunscient qu'il peut y avoii un 
problème de ce coté-la. permet d'aller se 
coucher plus tôt certains soirs de pro 
tonde réflexion. 

Le vrai hasard, lui. est emmailloté dans 
un tas de lois, de labiés, d'abaques, 
Quand on pense que seulement en 
louant à pile ou face, un déclenche tou 
les les lois de distribution et de réparti 
non ! 

Tous les scientifiques, qui ont voulu avoir 
leur nom dans le Larousse, se sont occu- 
pes de probabilité., beaucoup d'autres. 
et . Fermât. Bernoulli. Laplace, Gauss. 
Pascal, tiens... à propos de Pascal, un 
triangle arithmétique porte son nom. il 
s'agit d'un tableau qui peut servir a 
résoudre des problèmes de probabilité. 
Ce triangle se présente ainsi, suivant la 
figure 1 . 
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Tout élément du triangle est la somme 
des deux éléments qui se trouvent à sa 
droite et à sa gauche, au dessus de lui. 
Il est facile de continuer le prolongement 
de la figure. Chaque ligne parallèle à la 
base est l'image d'une courbe de Gauss. 
Courbes qui sont caractérisées d'un 
sommet, duquel elles décroissent cons 
tamment. Elles sont aussi appelées cour 
bes en cloche ; elles représentent une loi 
de probabilité, la loi normale de distribu 
tion. 

Vous allez tout comprendre avec quel- 
que chose de plus concret. On obtient 
une assez bonne image de la courbe de 
Gauss avec l'appareil de Galton. repré- 
senté en figure 2. 
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Des petites billes sont déversées par une 
Ljoulotte-entonnoir. Dans leur trajet de 
chute, elles rencontrent des obstacles 
(genre flipper) qui les dévient, soit à 
droite, soit à gauche (pas d'abstention!, 
avec des probabilités sensiblement éga- 
les. Des tubes recueillent au bas les bil- 
les suivant les écarts qu'elles ont accu- 
mulés dans leur parcours. 
Au début de l'opération, les tubes se 
remplissent un peu n'importe comment, 
puis, progressivement, à mesure que le 
nombre de billes déversées augmente, 
l'ensemble des niveaux de remplissage 
de chaque tube tend à affirmer une 
courbe... de Gauss. 
Bon, ça y est. vous faites la relation du 
résultat obtenu avec la machine de Gal- 
ton, la courbe de Gauss et le triangle de 
Pascal ! 

Forts de tout cela, nous pouvons voir 
comment se comporte la fonction RND 
de l'AMSTRAD si on lui fait jouer le rôle 
de la machine à billes. 
Pour cela, on va considérer comme des 
plus ou des moins les nombres de la suite 
générée par RND. respectivement ceux 
qui sont supérieurs à 0,5 et ceux qui sont 
inférieurs è 0,5. ... if RND(1 K0.5then... 
else... 

PROGRAMME "A" 

On obtient avec le programme "A", une 
ligne de 9 colonnes de chiffres. Si la.dis 
tnbution RND a l'aspect du hasard, on 
doit obtenir progressivement 1 -8-28 56 
70-56-28-8-1 (voir la première ligne à 
compléter sur le triangle de Pascall. 
Vous pouvez : 

- ligne 60, changer la valeur Co pour 
obtenir un autre nombre de colonnes : 

- ligne 110, faire variéf la valeur 0,5 
(vous constaterez la dàssymétri.eisur la 
suite affichée). -Vi~,' 



A la ligne 50, la valeur T est seulement 
la valeur du cycle d'affichages ; vous 
pouvez aussi la changer. 
Par un GOTO 200 (après avoir fait tour- 
ner le programme), on obtient les valeurs 
brutes réelles de chaque colonne (le 
nombre de billes dans chaque tube de la 
machine de Galton), et le total des RND 
générés (le nombre total de billes déver- 
sées). 

Ces valeurs vous donnent les éléments 
pour tracer une courbe ou un histo- 
gramme avec affichage de la progressi 
vite. Vous pouvez aussi faire un pro 
gramme de génération de nombres aléa 
toires et le tester. Pensez que, pour géné- 
rer une même suite RND, vous pouvez 
commencer par un RANDOMIZE. 

PROGRAMME "B" 

Si le début de l'article a été suffisamment 
explicite, vous n'aurez pas trop de sur- 
prises en faisant RUN sur le programme 
"B". 

La structure de ce programme est sim- 
ple : c'est le même algorithme que le pro- 
gramme "A", répété Co fois (ligne 140). 
Ligne 220, une équation qui, approxima- 
tivement, à chaque ligne du triangle dou- 
ble, par rapport à la ligne précédente, le 
nombre de RND qui sont analysés ; cela 
pour obtenir une progression homogène 
des lignes successives. 



Le programme est structuré surtout pour 
être assez rapide et d'une bonne com- 
préhension. Dans le cas où, comme pour 
le programme "A", on veut visualiser 
graphiquement l'évolution, il est intéres- 



sant de voir, avec plus de précision, ce 
qui se passe au début de l'analyse. Pour 
ceia. ligne 200, adaptez une équation 
pour la valeur 0,1 . la faisant débuter, par 
exemple, à 0,005 et se terminer à 0,2. 



PROGRAMME "A" 


tu ' l RI ANGLE de PASCAL 








&Ô prtW. d ettperi mentat! un 








50 ' 




Rai. 


: A. 


mat s 86 








40 CLS:MODE 2 








30 È*s 40 Nb de [RANLHES pat boucle 








60 Co^9 CHIFFRES (colonnes) 








70 C= Co-1 :D1M P(C) 
















40 : 








100 FUR lr -an™ 1 10 f 








UO FOR fêhtf* 1 |fl C:N- Ni- AttB tRNU < 1 ) > 0. 


i) :NEXI 


Ch i f 




1 -.K) P t N ) = P ( N ) + 1 : IM= 








130 -next 








150 £■ L + 1 : CLS: LUCA IE 1 , 10 








1 60 : 








I/O FOR i~ 10 G: Y=F' ( i ) * 2 "c/ Z : PR1NT 


INI (Y) 


:NEX1 




1 BO : 








190 et) ru loo 








. \<> FOR i^ 10 Co-1: PR1NI pli): 101= ïOH-Ftl 


: NEX |T 


.-. " PR1NI " 101 AL= "; 101 








n»r* • 












PROGRAMME "B" 




TRIANGLE de PASCAL 



Ce triangle se réalise en vérifiant la loi de repartition de la 
aeneratian pseuda aléatoire RND .il en est la représentation exacte. 

Il est possible. LIGNE 140 de chanoer la valeur de La ,ce qui 
permet d'obtenir un nombre dit-ferent de colonnes, jusau a 12 pas 
de problème, au-dessus revoir le module d af-fichage USING. LIGNE &&0" 

Le sous-programme ligne. 450 se commande par un GO I G 450.il permet 
de visualiser les VARIABLES ,il en donne les valeurs br ut es . . . . qui 
composent chaaue liane. 

Pour pour su i vr e 1 e praqamme sans renti se a zéro des var îabies de ja 
chargées faire OÛTQ 200. 



130 DEFINT A-2 : CLS : MODE 2 

140 Co= 9 ■ Nombre de colonnes de CHIFFRES 

150 V= Nombre de Tranches par boucle 

170 C-Co-1: D1M PiC.C), ZIO 



200 LOCAI'E 40,5: PRIN1 " 1" 

2.10 Ftm X « i \Q C 
220 T= 0.1* EXP'0.8* X)+ 1 

230 XX = 2'-X 



FOR Tran= 1 TG ï 

FOR Chi-f = 1 TQ XsN= N+ AËS (RND < 1 > >0 . 5) : NEXT 

F<X„N)= PIX;»»)-^* :N= 
NEXT Tran 

l i ;o = Z ( X ) * ï 

LÛCAIE l.X-t-5 îPRIMT CURSUS) 

LOCAI'E 37-X*2. /.+5 
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FOR i- O Tû X:Y=P(X,I>* XX/ 2(X) : PRIIMÏ USING" ###"i Vj iNEXT 

NEXT X 

6ÛTÛ 210 



Sou.s-Pr 



-appeler par GCl'IQ 






460 


FOR i= 1 TO 


Ca-l 


4 7 


HÛfi ii= 


f i 


480 


PRINI" 




490 


NE.XT il 




300 


j = i + 




510 


PR1NT 





") = »tp« ,11) 



320 NE XV i 

540 FUR i= 1 10 Ca-1 

550 IR i=l THEN PRINT" Mb. de RND (. ) de 1B liane " ; i + 1 : " "; Z(l):GQTa 570 

5fc0 PRINT " ligne ";i + l;" " ; Z < I > 

570 su.m! = sum!+Z (I) 

580 NExT I 

59<J PRINV : PRINT " Nb . total de RND ( ! qeneres " : sum ! 




PROGRAMME "C" 

En réfléchissant à la génération RND, 
vous vous êtes peut-être posé la ques- 
tion (dans le cas contraire, ça n'a pas 
d'importance) quelles sont les plus lon- 
gues séries consécutives inférieures ou 
supérieures à 0,5. 

Si vous en avez le temps, essayez de 
faire un "bout" de programme vous affi- 
chant au fur et à mesure la plus grande 
suite inférieure ou supérieure à 0,5 ren- 
contrée dans : 10 x = rnd(1 ):goto 10. 
Dans le cas où vous voulez comparer le 
programme que vous avez fait avec celui 
de "votre revue préférée", vous tapez 
le programme "C" (ne vous y fiez pas, 
c'est du vrai Basic). 
Sitôt tapé, vous le saurez ensuite... 
RUN ... ENTER. Vous obtenez 14 lignes, 
que vous validerez chacune par un COPY 
et un ENTER. 

Si vous le voulez.., faites DELETE 50 - . 
Après un RUN -ENTER sur ce pro- 
gramme, vous allez voir s'afficher à 
mesure qu'elles sont rencontrées, les 
longueurs maximales des séries. Vous 
laissez "tourner" jusqu'à ce qui vous 
semble être le maximum. C'est à ce 
moment-là que vous vous poserez la 
question pour savoir si, en continuant, 
il eut fallu un repère... ajoutez au pro- 
gramme un décompte de RND ! Il vous 
est possible à présent de connaître le 
nombre de RND entre deux suites maxi- 
mum. Vous avez peut-être découvert 
une périodicité : pour en être sûr, il faut 
voir si la série consécutive est constituée 
par des nombres comportant les mêmes 
chiffres. 

Pensez, si cela vous arrange pour certai- 
nes comparaisons, à commencer avec 
un RANDOMIZE. 

S'il y a une périodicité, cela veut dire 
qu'après un certain nombre de RND. 
nous retrouverons toujours cycliquement 
les mêmes suites de nombres. 
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PR 


DGRAf 


AME "C" HEXA FANTAISIE 






su 




Plus long .5eriE5 consecuti ves de RND im 

4 ) : E= 15- 




SS.DIfl a< 


60 1 


OR i -■= 


1 IU 14: RËAÛ A( I ) : NE* 1 1 




m i 


an 1 1 


= 1 l' P 1 -1 




7i\ 


F 


JR 111= E ra E+AU 1 J 




80 


i 


■.EAD DA*îRRINI' CHft* i VfltV'V +l3ft«) ) i 


, 


as 


NE XV III 




90 


mm 


:E- E+AtII> 




9ti r 

1 OÔ 

1 10 


e x, r 1 1 




m ï s 


12.31 ,31 , 13.23.23, 11 . 14 


LIE 


D.$ 'W 


31 .09. 11 . 14,31 .09.31 ,30 




120 


p:ft 1 A 


20.43. 4C.53.3A.4D.4F.44 




12 SI 


DhTA 


45 . 20 , 32 . 3 1 . 32 . 20 ,27 . 50 




1 30 


DFt i H 


faC .73. 7 3,20.6C.fcF, &>E,67 




135 


DM VA 


2E . 20 .73.65,72.69.65, 20 




! 40 


DAT H 


63 , 6F , 6E , 73 , faïï . 63 . 75 . 74 




145 


DATA 


69, 76.65.31 ,34,20,2 7,64 ' 




150 


DAT A 


65 , 20 , 52 . 4E . 44 . 20 . 20 , 73 




155 


DA1 A 


75 . 70 . 2E , 20 , 65 , 74 , 20 , 69 




1 j&O 


DATA 


6E . 66 . 2E . 20 . 20 .61'. 20 , 20 




165 


DMTA 


30 . 2E . 35 . 3 1 . 36 , 20 , 4C . 4F 




1 .' 


DAIA 


43 , 41 . 54 . 45 . 20 , 33 , 30 , 2C 




175 


DATA 


3B , 3 1.38, 20 . 50 . 52 . 49 , 4E 




iao 


DA i A 


54,22. 20 , 20 , 20 , -3£ , 20 , 20 




165 


DATA 


20 , 30 , 2E , 35 , 20 , 20 , 20 » 3E 




190 


DATA 


22 . 32 . 30 . 20 . 49 , 46 . 20 , 52 




19 S 


DM TA 


4E , 44 , 28 , 3 1 . 29 , 3C , 30 , 2E 




200 


DA f A 


35 , 20 .54.43. 45 , 4E , 20 , 33 




205 


DATA 






2 1 


DM 1 A 


3 1 , 3A . 70 . 3D . 30 .32.34. 20 




215 


DP, TA 


4C. 4F .43,41 ,54,45,20,33 




220 


DA 1" A 


32 . 2C , 31 , 30 , 32 , 36 . 20 , 49' 




225 


DAIA 


46 , 20 ,6>", 3E , 67 . 74 , 20 , 54 




230 


DA 1 ,4 


48 . 4b . 4E , 20 , 50 ,52.49, 4E f „ 
54.20,6 7.3Â,67, 74,30.67 l 




235 


DHlH 




240 


DA 1 A 






245 


DATA 


4F , 54 , 4F . 20 , 32 , 30 , 33 , 30 




250 


DA 1 A 


20.70.3D. .'0.2B.31 .3H.67 




255 


DATA 


3D , 30 , .53 . 32 , 20 . 4C , 4F . 43 




26U 


DA F A 


41 ,54 . 45. 20, 34, 32, 2C, 31 




265 


DM TA 


30 . SZ , 34 , 20 , 49 , 4*5 , 20 . 70 




2/0 


Bft-f H 


3E . -?0 , 74 . 20 , 54 . 43 . 45 . 4E 




2/5 


Dm TA 


20 . 50 , 52 , 49 . 4E . 54 , 20 , 70 




28U 


DA i A 


3M, 70, 74, 3D. 7 0.3A. 70, 3D 
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DATA 


30 , 33 . 36 . 2U .47, 4F , 54 , 4F 




£-?0 


DM 1 A 


20.32.3<,.^.2.. J ,2U_U,20© 





SOLITAIRE 



Georges GOUMENT 



Ce casse-tête des plus classique n'est plus à présenter. 
Il était toutefois possible de lui apporter un petit quelque chose en plus. C'est fait 
avec ce programme !.. 
Vous avez à votre disposition un superbe jeu, avec trois niveaux de difficultés, de quoi 
passer de nombreuses heures à "gamberger". 

Mode d'emploi et règles incorporées. Aucun problème pendant une partie, l'ordinateur 
affichant les différentes phases de jeu, ainsi que les erreurs diverses. 
Programme en 2 parties à taper et sauvegarder indépendamment. 



î'S'^ir***-'-*-?'*'..**^-* 






4 ' 

6 MODE il INF 0,13: BORDER 13s If* ï.lAîI» 

3,l3:INF l,13l3VME0L AFTER 64 

7 FOR i=23:l TO 251 

8 READ si , s2, 53, s4. s5, se. s?', s8 

9 SYMBOL I,si,52,s3,s4,=5,sb,s7,s8 

10 NEXT" 

11 DATA 8:01, 8:03, 8:07, 8:1 + , 8:3+\8<7+,8<7+,8:+ + , 
8:8o,8:co,8:eO,8<+8, 8<+'c, 8, + e, vte, 2 + + , 0, 0, o, ù, 
0, 0, 8<06, 8:19, 8:8 i , 8:42, 0, 0, 8:24, 8:24, 8,42, 8:42, 
, = i , 0, 0, 0, 0, 460, 8<98, 0, Me , Scie, 4:33, &33, M 
e , 8<0c , , , , , 8-Oc , ?;0c , , , 

12 DATA 0,&30,&78,4icc, tac, &78,&30, 0,0,0, 
0, 8:30, 8.30, 0, 0,0, 0, 0, 8:01 , 8*03,8*03,8:01 ,0, 0, 
8 < +T,8:t + ,8:tt,8(tt,8:t + ,8(tf .S;tt ,&3c, 0,0, 8(50, 
StCO, ta»), Si», u,o, 0,o, 0, .i,o, V3c, i'e,': ++,o, 
8:07 , 8<0+ , 8:07, 0, 8:07, 8,0+ , 8:07, 0, 8<+e, 8: + e, Mo, 
0,?!t+,8<++',8< + e 

13 DAIA 0, 8:07,8(0+. 8:07, 0,8:07, 8:0+, 8:07, 0,5< + 
c,8: + c,8< + B,0,8Vf8,8<f8,8<fo, 0, 8:7 f, 8Y/ + , 8:3+ , 0, 
8:+ + , 8:+ + , */t,0, 8.e0, 8:10, Feu, 0, 81e0, £ + 0, 8leu, 
, k 3 + , 8: 3 + , 8< 1 + , , 8< 1 + , 1 1 + , 8< I , , 8: e , 8. f , 8:e 
■O,0,8:e0,8: + O,8:eu 

14 PRINT CHRï(22)+CHR*(l: 

15 FOR i=4 Tû 20 

là LOCATE 9,i:PEN 1:PRIMT STR1N8* (24, CHR 
H14SI ) 

17 NEXT i: INF 1,0 

18 REST08E 20 

19 FOR i = l TO 4:REN 2:READ ;:, y: LOCATE x, 
y:F'RrNT LHR*il43!:NEXT 1 

20 DATA 21:12, 19, ï,21i,3, 21, 3 

21 LOCATE 20.,'itPEN 1: PRINT CHRs (63) ; lula 



1E 20, XtPEN 2:PR1N1 OHhï ..243.. : LOUA TE +,, 
7:PfiINr LHR* :2.Î.[J îLOCAiE 2J,2lFr.îh 1 LHRi 
i2„ïi.nl,0i'('lïlï 19,4:R:(1N' LHh* :. ; 40. îEHRU (2 
41) ;OiR» i242.i 

22 LQCAIE 8,7;PRINT lHRï (244 : : CHR* ',2Kn : 
LtJCAlE B,8sRklNl ÇHH* i 2461 î CHS* vit?» tUttl 
AIE 32,/lFRlNr CHR» '24B i ; LHRit (249: ! LÙCfiT 
E 32.a:Pklt,!T CHR* :^bO ) : CHR* ,251 ) 

23 kESTORE 25 

24 F-jR i = l TO Ï:PEM I:REHD ;-:,., c; LUCA Œ 
x,vgpRiNT CHR$tc»ïHÇXT i 

26 REN 0: LOCATE 19, 3: PRINT CHR* 1 236! I LUC 
ATE 21,3;PRINÏ CHR*(238j 

27 PEN 3:L0CATE 19, 3: PRI14T CHRï (237 ) ; lOL 
Ait 21,3:PRlNr CHRS(239; 

28 titre*= i, 50LrTAIRE":y=310:i=2îbObUË 29 
:y=306: a=3:GùSUB 29: Go 10 40 

29 raractere=LEN(titrei) ; p i»el=car actere 



sractt=re*32i /2 
1;PEN 3; PRINT 



31 LOCATE 1,1;PEN 3;PRINT tltre$;:REN 

32 tl: = :: : y2=398 

33 FOR i=l TO 8:x2=ù:F0R j=l 10 Pixel 

34 IF TEST<>:2,y2!=3 THEN PLUT >:„y,a:iLMi 
;:,y-2:PL.0T K+2,y:PL0T ;;+2,y-2 

36 NEXT j:y=y-4:y2=y2-2: ;; = t;::NLX ! i 

38 LOCATE 1,1; PEN 0: PRINT STRlNû* ( 10, uHF 

:-■ RETUftN 

•'. IM 5.2:PEN OîLDGATË L4, 19:1 F. lit "(s; 
5.6o'u(nent'':LOCATE 13.13:PEN 2:FRÏNT'* 
-;:P£h 3: f+ll i : 'i h;vc- "L i E" ; : 1 Lli : t - 

4, KANÛDflj _L: i!i-!E 

42 f.Bfi 1 = 1 FD 300:note=ÏNT(RN&*50u/ + l!3L 
UMO L,nate, 1, lOrCALL :l-.---: +.l. feBS -;. 
i_L 8.Bùi5:Nt.O 

43 RUN"sulitl 
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accentuées et régies du 



4 



6 SYMBOL AFTER 64 : ENV 1, =3, 8000 

7 FOR 1 = 1 TO 5 

9 SïHEOL s, si, 32. s3;s4,s5. 56,s7,së 

10 KEV. t.CHRtOs! 

11 NE; I i 

12 DATA 129, 64, 460, 4 10, 478. 48c, Me 

,0, 130, 1 



it-'C 



, r.:4.,92,0,0,4îc,466,460,43e,408,4id, 132, 
94 , !.. 1 8, 424 , 43c , 466 , s. 7e . 460 ,*3c ,0 
43 MODE !îMjft£H 14:11%. 0,14:iNr. 1,-iiiW. 
2,4:PEN 1 

i.4 PF.iN i "Four ceu::, bien rare, qui ne co 
nriaitrsi tpas encore ce classique passent 
emps, iesrjqies du jeu sont décrites ci- 
dessous. ": PEINT 

15 ffv[NÏ''En partant ci une cj:=-s occupée, 
vers une case libre et en ne prenant qu 
un pion iàchaque ci Lp lacement , vous devez 
vider le plateau de .jeu. " ; PRINT 

16 PRINT"La partie est gagnie iorsqu il 
ne reste qu un pion FSQLlTAIREv sur le d 
amier. " 

17 PRiNF;PRINT"Au cours de la partie n o 
ub nez jamais.. un déplacement ne se rlai 
ise que s'il y a une prise. "s PRINT: PR1NT 
'Alors, attention au:; pions isolls :... 

lis ne seront pas toujours ricup (radies 
et pourraient voua obliger É annuler ia 
partie. " 

18 PRINTîPËN 2: PRINT "UNE PARTIE ANNULEE 
EST UNE PARTIE PERDUE ": PEU 1 : B0SUB 27 

19 PRINT"L ordinateur signale toutes ie 
s erreursde jeu, volontaires ou nor;,":PR 
.iNi":PPÏNI";PR.lNT:PfiINT" H'emsxfBZ paa 

de le rouler ! . . " 

20 PRiNuPRINi : PRINT: PRIN 1" vous pouvez 
gagner 20 parties, ou en perdre autant 

, avant que ie programme nes'arrts pour 
afficher le résultat final" :6fJSUB 27 

21 PRINT "COMMENT JOUER" : PRINT: PRINT" Touc 
hes 1 a 9: choir d'un pion ": PRINT" 1 } 
re fois: mimorise ia colonne" : PRINT " 2 

}me f ois: mtmonae la ligne":PRINT 

22 PRlNT-'Ia base du pion c I ignote" : PRINT 
: F'KlNT'lTcruche ter: annule les coordonnfe 
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loucho *A.': ann.iie unq pi.'i ie" : PRiN ; 

ments et' nrisesdans ie sons de .a fi ■ 
":PPilii :FRiNT:PFirii':r'Ei.l 2:1 hINT LE 9ui 
DE C0 ; ..UNNL UlII ÏLiUJuUPô ET» 

'ri-'i EN Ihr'li'F ifit-i l,.iJsu« <" 

2:4 FRli'jF'CHOU DU JEU" sPPtll+T ' 

-":FFiNF:PFIN,T:PEN 2;FRINV": -rOF .. 
;":PEN i : PRINT "seul e ïa ca.se centrale, 
t iiblrle pour enague rioir/t* ie pàrh.r 
PRINT: PRINT 

25 '->4 2:fPINI'.^ - HEU . . ;";t ■::'■! i 

sucer lire du jeu, l... oro mareur rrf^ec.< 
ie choi r 1 ui-m me. 

26 PEINT: PRINT: FEN Zsf-ftitil'ï - »HM> M 
..DUR,., :":PEN i : FF; iiTT "chai :< d une c, 

de a {part dans un des 4cotrS du :eu 
positions possibles: .": PRIN'i "tirage ; 
liai, également par ie CF'C. " : GÛSuu 27:1 

27 SOUND 5, 4e0, 20, 15; SOUND S. o60, 25u. s 
: LOCATE i , 24:FR1NT "Appu vez sur une roi. 

2S t$=INKEïS: :F 19= ' ,w rw 2b 
29 CL5:RETURN 

31 

Z2. initialisations diverses 

34 ************************ ******■,*;**■-, 

35 MODE 1: BORDER liilNK y, 11:11*. 1 ,0:i 
2.11: INK 3,1 I : j=u: pp=0: pq=û: pt=r; pn=- 

PEN 1 

36 DIM f# 15) , phî (6) 

37 f$<lJ=STKlN0$(26,CHR*(143i S - 

38 fï i2i=5TRIN6*i5,0HR*a43; i 

39 +$(3i=STRING*l22,CHR*i207i j 

40 f»i4)=STRING*'. 18,CMR$' 143; ' 

41 f*i5)=STRINËiM7,CHRS(143> i 

42 FOR 1=1 10 6 

43 READ ph$\l> 

44 NE AT l 

45 DATA "DEPLACEMENT IMPOSSIBLE" . XÂSF 
ARRIVEE OCCUPEE". "AUCUN PION A FPENDF 

."PARTIE ANNULEE ET PERDUE" , "NOUVEcLE 
R'FIE '0 au N.) """NIVEAU DIFFICULTE: 1.2 

46 luChTE 1 i . 10: FRINT "Un peu de palier 
M, :L0CATE 12. i 4: PRINT" te dessine la ie 
:F0R deiai = l "0 1000:NE:n' ceiai 

47 INF: l,il:CL5 

48 '' ****** ********* ********* ** ** * - *v ..'.■* 

49 



redef initier 



*** ***** 



très coionnes 



5 RESTORE 53 

1 FOR i=127'Tfl 147 

ï REhD Si , S..., S ' , S4, SÛ,Sq, s -, SU 

a SYMBOl. :i 5 si, S2,53,s4,s5,s6,s7.s8 

? NEXT. l 

3 BATA 401,403, 7,01,84:11, 0.01, 401, 4.07. C 

. 780 , 480 , 480 , 480 , 480 , 4e0 , , 403 , 4:06 , !.. 

, 406,406, 40 7, O, &c ), :ii6o, 460, F^ci.i, u, &6U 

i 0, &03, i-04 , 0, 401 , 0, j.06,403, 0, SicO, 460 

, '«CO , 460 , 461) , 4cû , , 40 1 , 403 , 405 , 4u9 , S 

> I , 403 , , 480 , 480 , 480 , 480 , 4e0 , 480 , 4cC 

F i -Mft 40?. 4t>6,4iJ6,!i!u3, 0, 0,407, u,4eu,ï 

, %c0, 460 , 460 , 4c0 , , 403 , 406 , 406 , 407 , S 
i «us, 403, F', 4cu, 460, 0, 4c0, 460, 4e0, 4co, ( 
l / , 404 , v . , 40 1 . 40 1 , 401, , 4e0 , 460 , 460, l 

43', , 480. i 80, 0, 403, 40ô, 406, 403, 406. kOè 
13, .,, itcO, «60. 46u, 4c0, 4&0, 460, 4c0, 

I UriTu ::.:tF,4tt,4f '',!itt,4tt . S T -f ,7tT,'-T1 



REpIOFE os 

FOR 1=148 TO U 



"bl.JL 



6? DATA 401, 



■20, 440, 0, û, 480, 401, 0, 404, 401 , 0, 404, 403 
(80,0, 420, 480, 0, 420, 4c0, 401 , 0. 404, 403, 
i, 407, 480, 0, 0, 480, 0, 420, 4c0, 401 , 0, 0, 0, C 
4)4, 403, 480, 0, 0, 0, 0, 420, 4cu 

:,8 ******#* ****■<!*■****.»* ************** 



s ion du 
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2 ' *********■*******:*********,' 

3 RESTOKE 78 

'4 FOR !=!66 10 175 

■':, READ Sl.s2,s3,s4,s5,5ô,s7,: 

6 SïilBOL l, 3l,52,s3,s4,s5,s6. 



******** 



DA 1 H 

F , 4- 1 i , 

i 1 h 



.i7,40f,4]f,43f,47f,4ff, 
2,4tc,* +e,s,tf ,4+ + ,47+, 
i3, 401, 4ff.4fe,4fc,4f8, 
.'4, .486, 443, 421, 410, 408, 



■4, 



si( 



i:4i; 



82 redéfinition chiffres des liqr 
33 

84 ******************************* 

85 RESTORE 90 

86 FUR 1=176 Tu 184 

87 READ 5l,s2, s3,s4 

88 SYMBOL i , 0, 0, 0, 0, si , s2, s3, s4 

89 NEXT 

90 DATA 4 18,438,418,41 8, 43c, 466, 40e 
43c, 446, 406, 4 le, 41 8, 438, 458, 498, 47e 
460, 43c, 43c, 466, 460, 47c, 47e, 446, 40t 
43c , 466, 466 , 43c , 43c , 466, 466, 43e 

91 RESTORE 96 

92 FOR i='l 85 TO 193 

93 READ sl,s.2,s3 

94 SYMBOL i,sl,s2,s3 

95 NEXT 

96 DATA 418, 418, 47e, 460, 466, 47e, 406 
.vfL,4f e, 418, 43c, 406, 406, 47c, 46à, 466 
418, 4 18,% 18, 466, 466, 43c, 406, 406, 47c 

97 RESTORE 102 

98 FOR i=i94 TO 202 

99 READ sl,s2,s3 

100 SYMBOL i, 0,0, 0,0,0, si, s2,s3 

101 NEXT 

102 DATA 0,420,0,418,460,402,438,44 
, , 420 ,440,41c, 402 , 440 , 4 I 8 , 406 ,0,43 
,402,418,0,442,418', 0,440 

105 RESTORE 108 

104 FOR i=22o TO 228 

105 READ 51,52,53,5-4 

106 SYMBOL I,sl,s2,s3,s4 

107 NEXT 

108 DATA 0,0, 0,47e, 41c, 0,0, 



i<18, 

Scie, 



,43c, 404, 0,0, 418,418,0 

109 SYMBOL 229,0,41,0, 

110 SYMBOL 230,0,480,0 

111 SYMBOL 231,44.46,4 

112 SYMBOL 232,420,460 



,411! 



************************* 



dessin du jeu et des tableaux 



1 1 3 

11.4 

115 

116 : 

1 J 7 ' ******************************** 

li.8 PRINT CHR$(22)+CHR*(li 

119 ENV i,==l, 10000 

120 LOCATE 8,24:PEN 2: PRINT F*U) 

121 PLOT 110, 14,1: DRAW 528, 14: DRAW 51 
6: DRAW 1 lu, 36: DRAW 110, 12: DRAW 528, 12 

122 PLOT 112,32,2:DRAW 526,32:FL0T 5., 
4,2:DRAW 112,34 

■ 123 FOR 1 = 1 Tu 22 

124 LOCATE lO.isPEN 2: PRINT f*<3) 

125 NEXT i 

126 PEN 0: LOCATE 10, 2: PRINT CHR*(212i 











CALE 11,1:PR1NT CHRH212J : LOCALE SO.liPR 


i .-.= 


^ r H '=- i. ; ; -HP .-,=*■ %: ,|"9i.: - 




INF CHfi*(213; : LOCATE 5I,2:PRINI ChRS.1213 


166 


LOCATE S ,2HFf'ii4T Dfe~* ici .- -, CHR* c. 




127 LÙCATh'rij,21:PRiNT CHR* ;2i5; i LUCATt 


168 


LOCATE .,.2;r0iNT CHRï -yO; : Cr.Ri ' cA 




11,22;PR1NT LHR*(215> : LOCATE 30,22:PRINi 


L69 


LuCATE -:,21:P-00T CHL* c3; : OnR* ■ 74 , 




CHRïi2l4> : LOCATE 51,21:PRINT CHR*;^Î4; 


17;, 


WEXî 




128 RESTORE i 30 




DhTA 127, 128, 148, 149. 120, !3y>, (Ou, l3l 




12'? PUR 1 = 1 rn 4:READ k . y ï LOCATE x.yrPEI 


, 17 


1 , 15; , 152, 153. 1 33. 1 _4, 154. 055, i 25, IOes 




NT CHR* (143; :NEXT : 


, 1 5 


j, 139, 1 37, 120. 152, ÏO". 139, 149, Ory. lai 




130 uhIh 10, 1,31, i, lu. 22, 31. 22 


, 14 


1, 142. 1û2, 163. 14 0, j45. 1o4,,l65 




131 PLÛT 144,78, i:DRAW 17û,46:DRhW hch.4 


1 72 


PEN 2 




6: DRAW 496, 78: DRAW 496, 36o: DRAW 469,799: 


17 2 


fOR 1-2 111 11 




DRAW 176, 399: DRAW 144, 366: DRAW 144,76 


1 74 


LOCATE 2,, îFRiO! tfi&l 




17.2 PLUT 144, 76, I:DRhW 176.44:1;RhW 4o4 . 4 


1/3 


000(410 iO.yîPKlNT fS.;3.' 




4: DRAW 496,76:PLuT i 44, 74, 1 : DRAW S7o.42s 


i/o 


NEX1 y 




DRAW 464, 42: DRAW 4%, 74 


177 


KLM 




153 k=192:v=174 


178 


LÛOATE 3,5;PR]NT t*i2' 




134 FOR 1=1 TD 3 


179 


LOCALE 3, iu:FRi'T! «■».■ 




135 PL01 x,y,l:FLOT x+192,y,l. 


180 


LOChIP 34,5:PFfINÎ Îïi2' 




13c x=*.*.3S 


iiti 


LCÇwlE 24,iv;FFiNl fï ,„i 




137 NEâT i 


102 


Pl.UT 14, 224, 1:DRAW lys. 224: uRAb '20, 




13B x=2B8:y=78 


784 


DPriW 14,384:9RAW j4,2^2-lFhW uï.jy. 




139 FOR 1=1 ÏO 3 


183 


p,_ui 5lO.,i74.1:DRHW p,:4, 2,4: DRpifl 674 




140 PLOT >,y, i 


,30 


i:DRAW 510.384: DRAW 5Iy, 2_2: DhAW 37, 




141 x=x+32 


222 






142 NEXT i 


lb = 


PlOT 32. 356,u:DRAW li0,336:PL0! lly. 




143 PEN 


338 


0:DRHW 32, 338: PLOT 32, 256, 0: DRhW 110 




144 LOCALE î2,2:PRINT T*i4>:LQCATE 12.21 


, 25 


jsPUM il», 258,0: DRAW 32,258:PLuf 328 




:PRINT f*<4> 


, 336,0! DRAW 606, 336: PLOT 606, 338, 0: DRAW 




145 FOR y=3 TU 2u 


5^8 


330:PLU! 5^8,256, 0: DRAW 606, 756: !■ 7OT 




146 LOCATE ll,y:PRINT CHR* { 143) 


60. 


3, 258,0: DRAW 528,258 




147 LOCATE 30,y:FRiNT CHR* (143; 


185 


FLOT 32, 318,0: DRAW 110, 518: PLOT 526, 




148 NEXT 


318 


0:DRAW 606, 318; PLOT 528, 238, 0: DRAW 6 




149 LOCATE il,2:"FRINT CHR* i214 ; : LGCiO E 3 


06 , 


738 




0,2; PRINT CHRs (215) : LOCATE 11, 21; PRINT C 


186 


LOCATE '3,3: POKE S,B28F , 253 : F R i NT " P I Oh 




HR*i2l3) :LOOATE 39, 21 : PRINT CHR*i212) 


S":i 


.ÛCAIE 3,8:PRiN! "FQRCE":L0CATE 34, 5: P 




150 RESTORE 160 


R1NT "GAGNE"; LOCATE 34, 8: PR1N L'HERON" 




131 PUR y=3 TO 19 STEP 2 


187 


FOR y=3 Tu 19 8 i EP 2 




152 READ Cl.c2,c3,c4 


108 


PUR x=18 TO 22 STEP 2 




153 PEN 2 


189 


PEN 5 




154 LOCATE 11, y: PRINT CHR* 0; D : LOCATE 30 


i Rii 


L.DCATE ;;,y;PRiNT OHR* C i6a) : CHR* (1=7 i 




,y:PRINT CHR* < cl) 


191 


LOCATE ,:,y+l:pRl{9ï CHFJM tafii îCHfif IJ* 




155 LOCATE U,y+i:PRiNT CHR* tc2S : LOCATE 


9) 






30.yi-l:FRINT CHR*(c2! 


192 


PEN 2 




156 PEN 1 


192. 


LOCATE x,v: PRINT CHRt ! 172; ; CHR» : .-. 73 ' 




157 LOCATE il,y:PRINT CHR* ( c 7; : L0CA1E 39 


194 


LOCATE x . v <- 1 ; FR I N T CHRt ( 1 7 4 . : CnF. * >' i ,' 




,y:PRINT CHR*<c3) 


5) 






150 LOCATE 11. yfl:PFUIMT CHR* <c4; : LÛLA ÏE 


195 


PEU 1 




30,yH;RRlNT CHR*(c4! 

159 NF ? T 


196 


LOCATE ;;,y+l:FRINÎ CHRt • 170) : CHR* •■ : '■' 




160 DATA 176, 185, 194, 22u, 177, 186, 195,221 


197 


NEXT 7 




, 170, 187, 196,222, 179, 188, 197,223. idu. iS9 


198 


OEXT y- 




,198,224, 181, 190, 199,225,182, 191,200.22= 


199 


FOR y=9 TO 13 & i EP 2 




, 183. 19 2. 20 i ,227, 184, 193,202,223 


200 


FOR x=12 70 lo ;, iËR 2 




161 RESTORE 171 


201 


PEN 3 




162 FOR x = 12 TO 23 5TEF 2 


202 


LOOhTE .y:PPlN7 O-ipï ; ip6 ■ ; LHR* U6 ' 




1&3 EEAD-cl,c2,c5.c4 


203 


LOCPiO ;,y4l:PKÎNl CH9* i 1 0; :7 HR* < id 




164 PEN 2- 


9) 






70 









204 PEU 2 

206 LOCATE x,yit:RRlNT CHR* ■■ i74; ;CHRi 1 17 

22,7 PEN" 1 

200 lOOAVE y,y^l:PRINT CHRt ' i 70" : CHF i ; 17 

1 1 

210 NEXT y 

211 FOF y=9 r G 13 S-TEP 2 

212 FOR ;;=24 fO 28 5 i EP 2 
715 PEN _- 

2!4 LUCATE 7,y:FRlNT CHR* ( I60 i ; CHR* i 1q7> 

215 70CA1E 7,v+l:FPlNT CHRï ■. 168; : CHR* : 16 

216 PEN 2 

217 LOCATE ;;,y:PRÎN T CHR* ( 1721 ;CHR$ i 175; 






219 PEU 



PR1MT 0HR*1174; :UHR*( 1 ; 



:FRIN1 CHR*(17 " îLHTii 



222 NEâ! y 

223 ÏNK 1,0: INK 2,25:INK 3,9 

224 IF p=l THEN p=0:G0TÛ 249 

225 ' ****#***#iHHHf*******^»***#****ÎHi* 

227 stîicha.ge des partie* gaqnantes 

229 ' ****-s-**-***********^***-**-**ii-**^-*^* 

230 LOCATE 34,5:PEN 0:PRINT T*(2j 
231' g=l 

232 IF pq,>9 THEN 235 

233 LOCATE 35,5:PÛKE &B28F. 245: FRII4T pq 

234 GOTO 249 

235 IF pg=20 THEN 640 

236 LUCAIE 34,5:PEN OlPRINT t*(2ï 

237 IF pq=10 THEN uq = 146: ugl=229: dg=127:- 
dql=l48:G0T0 241 

238 IF pq=19 THEN ug=144: ugl=164: 60TO 24 

239 IF pq=ll THEN ug=127: ugl=14a: GOTO 24 
1 

MO uq=uq + 2:Uql=uql+2 

241 PEN 2:L0CATE 35,5:PRINT CHRï(dq):CHR 
jlûyi-i ) :LOCATE 7.6,5:FRINT CHR* luq) ; CHR* ( 
uq+1 1 

242 PEN i:i_DCATE 35,5;PRlNT CHR*idgl;;CH 
RsidqlU) : LOCATE 36.5:PRINT CHR*;ugl);CH 
0* i un 1 + 1 ; 

243 IF g=l THEN q=0:GÛTQ 266 

244 44 *****'¥***#'X *-***********-**-****** 



248 *****^************-******#**+-s-**^* 

249 LOCATE 34, 10: PEN 0:PRINT ■f*(2; 

250 IF pp.>9 THEN 253 

251 LOCATE 35, 10:PQKE &B28F, 245: PRINT pp 

252 GOTO 26ù 

253 IF pp=20 THEN 640 

254 LOOAIE 34,10:PEN 0:FRINT t*(2; 

255 IF pp=lù THEN ur=146: url=229:dr=127: 
drl=I48:0uT0 259 

256 IF pp=19 THEN ur=144:L:pl = 164:G0T0 25 

25 7 it pp=ll THEN ur=127:L!rl = 148:G0TD 25 

259 FEN 2:L0CATE 35, 10:PRINT CHR*idr);CH 
K*.'dr+ii :LOChTE 36,10:PRINT CHRïiUri:CHR 
* lur-i-1 ; 

260 PEN 1: LOCATE 35,10:PRiNT CHR$idri;:C 
HR* ;drl+l; :OOCATE 56, 10: PRINT" CHRtiurl) : 
CliRtlurl* i; 

267 

263 ' choix du niveau de leu 

265 ' *^***»«***ll-**«***^l********#»###** 

266 LOCATE 9.24 

267 FOR 1=1 TO LEN(ph»iD>> 
260 POKE &B2BF,253 

269 PRINT MIDtiph*(6) , 1, 1; ; 

270 500ND 4,255, 1, 15 

271 SOOND 4,0,10.0 

272 NEXT i 

273 t*=INKEY*:IF t*="" THEN 273 

274 SOUND 2,364,250,0,1 

295 IF t»="l" THEN nv=l:GOTO 279 
27ô IF t*="2" THEN nv=2:G0T0 279 
277 IF ttO"3." THEN 273 

279 LOCATE 3,10:PEN 0:PRINT tt(2':L0CATE 
4,iO:P0KE &H2BF, 245: PRINT nv 

280 PEN 2: LOCATE 8, 24: PRINT T*(l; 

281 RANDOMIZE TIME 

282 [F j=l THEN j=0:GOTO 284 
28 7 IF ]=0 THEN J=i 

204 IF nv<3 THEN 292 

285 IF 1=0 THEN 335 

2B6 60T0 314 

287 '*+***+**#**■*#***■*+********■*+***** 

2B8 

289 ' jeu No i 

291 ' ******#4************************i; 

292 IF nv=l THEN 1=1 i : c=20:60Tu 360 

293 ' #**##*«#*#**#**##****####**#***#-» 

294 ' 

295 ' jeu No 2 
296 



71 



■fi * 










'*-*#**■##*#**##*#*##*!» 


i K .-, * 


298 


case=INT (RNImvm 


1 






IF case=.l-THEN . 
IF case=2 THEH : 






30C 




f;-;,î 


IF eàse-,3 THEN 




ZiSÈ 




IF r:ase=4 THEN . 


= 11: c: 


= 13: 




IF ■rasesb T'FIEH 1 


= 1 i : c 




304 


IF case=6 THEN : 


= 1 1 : c 






IF case=7 THEN i 


= 13: c 


• 1 8 : 


306 


IF cme*B "IHF3W 1 
1-13: c=22 


= 13: e 




308 


SQTO 360 








**##*>***##*##** 


**■*■*■*- 


**** 


310 








311 


,ic 


u Mo 




312 








3 1 3 


'##■*&###*#■*&»#** 


***** 


>■■»■*■* 


314 


y=INT <RND*9M"1 






315 


IF y\, THEN 1=3: 


30 TQ 


324 


3lo 


IF v=2 THEN l»Sl 


GOTO 


■ 24 


31 ; 


IF 7-3 THEN 1=7: 


SOTQ 


124 


3 î a 


IF y=4 l'HEN 1=3: 


3010 


324 




IF y=5 THEN 1=5: 


30 TD 


■24 




IF y=6 THEN 1=1? 


: GOTO 


324 




IF y»? THEN 1«15 




324 




IF y=8 THEN 1=1/ 






'324 


; ;=INT(RND*9>+1 








IF ;;=1 THEN c = 18 


;G01"0 


334 


326 


If w'à THEN c=2r 


îGOTO 


334 




IF K=3 THEN c=22 


:eOTQ 


334 




IF k=4 THEN c = 18 


: GOTO 


334 




IF x=5 THEN c=20 


: GU 1 U 


334 




IF >:=6 THEN c=22 




334 


331 


IF :r=7 THEN c = 18 


: GOTO 


354 




IF x=8 THEN c=20 


:GOT0 


334 


334 


SQTO 360 
y=INT(RND*9)+l 






336 


IF y=l THEN 1=9: 


3DT0 2 


45 




IF y=2 THEN 1=11 


: GOTO 


345 


338 


IF y- 3 THEN 1=13 


OOTO 


345 


339 


IF y=4 THEN 1=9: 


30 TO . 


45 


340 


IF y=5 THEN 1=11 


GOTO 


345 


341 


IF y=6 THEN 1=13 


GOTO 


345 


342 


IF y=7 THEN 1=9: 


30T0 : 


45 


342: 


[F y=3 THEN 1=11 


GOTO 




344 








345, 


-:=J:NT iRND*9;+l 






346 


IF :: = 1 THEN c=12 


GOTO 


360 


34 ? 


IF -x=2 THEN i: = 14 


GOTO 


360 


348 


IF x=3 THEN (::=16 


BOTÙ 


360 


347 


IF ;-.=4 THEN c = 12 


GOTO 


360 




IF >;=5 THEN c=14 


GOTO 


360 


3b 1 


IF :<~6 THEN c=28 


GOTO 


360 


3b2 


IF :■;=/ THEN c=24 


SQTO 


360 


353 


IF c=b THEN c=3s 


GÙ'ÎQ 


360 



3UT0 
30 TO 
30TCJ 

30 TO 



354 c:=23 



72 



;■ 5 b * ■> *■ * P * * y * s y y ** % » **** * * * ■» * * ** *-*.*.# -* 

557 affiche une case sans non 
fS& ' 

■ûO PEN 3 

■ol LOCATE cUF-RÏNI CHfifUôô'i :LHf3*<ï& ,' 

■:-2 LuOA'it i. , I * 1 ; F ylNf CH IL <",t64 tU***af 



,3 6 ? **:*#*.**#*** y * y !t y »■ -* y ^ .«■>> * y y y y ■?■ f ,> b . 4 . ^. 

368 i.F pry-0 f'HEN 385 ELSE hl="FARTiE Ont 
NEE ÈRt-ivO i ' " 

369 LOCATE 9,24 

3/u FOR i = l TG LENit-f) 

371 SOOND 4, i*'30, iO, 15 

372 F01X 3B28F.253 

373 PRIHÏ NID* in*, 1,1/; 

374 SOUND 4,0, 10, 

375 NËXT i. 

376 SOUND 4, 33'/, 230,0, ! 

377 BORDER 26, 18:FQR délai»! TO 2St»îi«u 
! délai 

3 'f po-ptj + l:LûLnIi- 8,/4:FUT .t:FF:/7 f * ■ i 
ABORDER il 
379 BOTQ 619 



n 



■y 6 4 y * y y' y- « y : , * y y y * y * y s ■■ y y * y » y -> ■* , . 

385 LOCATE 3,5;PEN U:FRINT f*(2) 

386 IF P n=40 OR pn=30 DR Rn=20 OR 
THEN up=i4ô;up1=229:60TQ 397 

387 IF pn=3B rJR Pn=28 OR pn-19 THE 
41 ittp 1=162: SOTO 39 7 

380 IF »n<;43 THEN 390 

389 dp = 138:up=l 31 : dpi=;.54: up 1 = 152: B' 



N up = 



390 IF pn=39 THEN dp = 131 : dp 1 = 152; up = 144 
upl=164:80T0 397 

391 IF ,pn=29 THEN dp = 129: dp 1 = 150: up=1 -4 
up 1=164: GOTO 397 

392 IF pn=I9 THEN dp = l 27; dp i = 148: up =■ 144 
JPl=164:60TQ 3*7 

395 IF pn/=I0'THEN 39o 

394 LOCATE. 4,.5îP0KE M28F. 245: FRINT pn 

395 BÛTO 407 

396 up=up--2:upl=upl-2 

397 PEN 2: LOCATE 4,5:FRi.NT CHRy ( dp , : CHRi 
idp + 1 ; : LOCATE S, 5:F'RINÏ CHR* iup i ; r.t>m i« 

it-*sîJ ;CHî 



8 PEN 1: 


-ÙCATE 4, 


5:FR3 


-rr 


dp 1 + 1 i :L 


rare 5,5 


: f R I N 




p J + 1 1 









MO 
411 
412 



4u0 

yoi attente touche colonne 

■405 Qu'annulation une partie 

4.05 *****-*y **********************•< 

406 LOCATE 1,14:FEN 0:FR1NT FF:Ei l,;: i 

407 l* = INt;E« : IF t»=«" THEN 407 
'408 U-UPrERiltS) : SOUND 1,64V, 10. 10 

409 IF tï="A" THEN 606 
Il 3*-:; "1" THEN 412 
c=12:x=l=y:B0T0 435 
)F tU ,-"2" THEN 414 

IF !;*<v».l" THEN 4io 

(: = F-:;{=23d:B0TG 435 

IF i*- .u 1 y i: THEN 418 

c = 18: ,-.=288:GGT0 435 

ÏF tsy , "5" THEN 4^0 

c=2u: i'=320:G0T0 435 

!,F t*- ,-"o'' TFlEN 422 

IF tfO'*7" THEN 424 
c=y4i x=364:G0T0 435 
IF tiyy'd" THEN 426 
c=26:;-!=416:G0T0 435 
IF t*<>"*" fHEN 407 
c=28:k=448 ' 



424 
4- 2 b 

427 
426 
42^ 
430 
431 



438 

. 44F' 

44; 



44: 

441 



yyyyyyyyy*yy*yy-syyyyyy-*yyyy*y^yyy 
t*=INFE¥ï:IF t*»*" THEN 435 
M=UFF'EEï(t$) :bOUND 1,840, 10, 10 
IF t$= ! 'C'' THEN 438 ELSE 451 
h*= !! CÛURDQNNEES ANNULEES" 
LOLA ! E 11,24 
FUR 3=1 TO LENlhlj 
RQK.E 3-F/28F , 253 
yOUND l,o4. 1,15 
RkiHÏ nlD*(h$, 1,1;: 

BORDER ' 24 , 2 : 3PEED I NK 4 , 4 

FUR dslai=l TU 1500: NEXT délai 

LûChTE 8, 24: PEN 2:PRINT 3$(1; 

IF tt-ï" 1" THEN 433 
i = 3:y=35.;:bOTO 476 
IF tyy■"2 ,, THEN 455 . 

IF y* ..;■"}" I F-itl J -,57 
i -)■:•/- iB-A OU ! U 47t. 



457 IF t*<>"4" THEN 459 

458 i=9:y=256:G0!0 476 

459 IF t=-<>"5" THEN 461 
46y 1=1 l:y=724: GOTO 4/6 

461 IF t$3 ="6" THEN 463 

462 1=13: y= 192: SOTO 476 
4o3 IF t!l,./"7" ÏHEN 465 
4p4 i=15:y=16u:GDTU 476 

465 IF t»<>"8" THEN 46 7 

466 i=17:v=128:SOTO 4/6 

467 IF t»0"9" THEN 435 

468 i = 19:y=9ti 

469- ' yyy-**y**yyyyy**yy**yyyy**^-y 



471 vérifie la présence d un pion 

472 

473 clignotement du pion 

474 

47b ■ ***y*****y**4y**y*y*y-*yy***y**yy-* 

4 7 6 IF [EST (x, y) =2 THEN 478 

4 77 z=l:;;a=10:G0T0 647 

478 LOCATE c.l+lsPEN 0:PRINT CHhti231):C 
HR$ i232! 

479 LOCATE c,i-M:FEN i: FRINT CHR*/23i);C 
HRti232! 

4g,.;.i H-*s***t**frï*?*********^***itty**'ï 

481 

432 attente totTche pour déplacement 

483 ' 

484 'test pion a prendre - case libre 

486 ' y*yyyyyy*yyy*y*yy-***yy*yyy*yyyyyy 

487 IF INKEY(62) <>0 THEN 489 
4BS GOTO 438 

489 IF INKEY(ù)y/0 THEN 498 

490 IF TE3Ti:;,y;=3 THEN z=l : xa=lû: GOTO 6 

491 IF TEST(K,y+32)y>2 THEN z=3: ya=i 1 : GD 
TO 647 

492 IF TEST i.:;,y+64><>3 THEN c=2: ya=10: GG 
TQ 647 

493 11=1-2 
4.Ç4 12=1-1 

495 13=1-4 

496 14=1-3 

497 GOTO 535 

493 IF INKE'r(2>O0 THEN 507 

499 IF TEST(x,yi=3 THEN 2 = 1 : xa=10: GOTO 6 



500 IF TEST ix 
TU 647 

501 IF TESTS;-: 
TO 647 

502 11=1+2 

503 12=1+3 

504 13=1+4 

505 14=1+5 

506 GOTO 535 



y-32)<>2 THEN z=3: y.a-1 1 : UG 
y-64;<>3 THEN z=2:xa=10:ÛÛ 



73 



1 




30? If Xfà&t à ; THEN 514 


) 








635 i.F tv : '"Q" ï'HËl-i 636 


506 H- |-£ST,*,y>«3 VHEN K *ta W AO.O0Td * . 


"° 


LOCATE cMsFRINT CHR*<174.) ;CHR*(i75 


605 ' *#**#**#***##*** 
6Û6 LOCATE 9,24 


# * -S- ■>*■ S 1 '-* 7c ¥i * fl- # *- ?■ * * :-:">* 


' t ! ',' '"■'' ' 


Srn FF TF.-.T k+32 V'<>2 THEN e*3sx*»UiSa 


557 


PEN 1 


607 FOR i=l TO LENiph 




636 SOUND 4, 966, 23)), 0,1 


TO 647 


558 


LOCATE c,l4:PfUNT CHR* ! 1 70) ; CHR* ( 171 


608 SOUND 1, 16, 1,15 




6../ LOLAÏL v..^4ïi EN ...:F'-l l -| l ) V .; ) ; 


Siu IF ÏE81 ft?+*4.yJ '-.-3 THLN £*2i ka^iûs GÛ 


> 




609 POLE 8tB28F,253 




638 pn = - ( 3:nv==0:pt=pt) ; 


m 647 


559 


i =0: c=ôî i-ûl \ =0: i 1=0: 12=0: 12— v: 14=0: 


610 PRINT HlD*!ph*(4) 


, .i , 1 , i; 


o57 LÛTO 187 


5 i. i cl~< *-2 

51 : GD1Q 5 75 

5 [4 if INktï (8) vO THEN 476 


560 


»n-l 
I3OT0 3a8 


611 SOUND 1,0,10,0 

612 HEXT i -. 




64u MODE l:INK 0,15:BÛKDEil 13:1)0. i.,l..;"'E 


Sol 




613 SOUND 2,450,220,t 




arï les": PRINT :FRlN r ; F'ftINT qaqn .es ; ' i ; v 


5t 2 


' 


6 14 BORDER 26,6:SPEEL 


INF 5,5 ■ 


:RRÎN!:PRlNT:F'RiNf' pei-aues : '!« 




5o3 




615 FOR delai=l Tu 15 


0Q:NEXT delà: 


641 LOCATE 1,20: END 


47 


564 


prise vers ia qauch-a ou la droite 


, 616 l=o:c=0:K=0:y=0:B 


ORDER: 11 


642 v****************'***'**'- ****.*,****■*)■ 


■ÏÏIù if rEBtvx»3i*ylw2 TfâH z*Zix&*inW 


565 





6Ï7 LOCATE 8, 24: PEN 2 


: PRINT f*'i) 


643 ; 


t r- ■■-. .-■ t 


566 




618 pf=pp>1 




644. attichaqe diverses er reui-s 


$17 3F "tL£-T^ 1 -64,vi 03 THEN 2*2*****0180 


567 




619 LOCATE 9,24 




645 


-.- . A f 


, 5*6 




620 FOR 1=1 TO LENipr 




646 ^-*******ië******'fc**v * **))*-* :t") > .***** 


■-.' r-" | „ ,- 


5ô : -* 




621 PUKE- &628F.252 




643 lOCATE va, 24 


^"V "V t 


5 7 ■-. 


*.-*.*,»,,, ****#*##*#*¥'*#«#'*#**,### 


622 SOUND 1, 16,10, 10 




648 FOR i=! 10 LEN)Ph*«c; ! 


72.^ ^;:^"^ ?E , 


3 -'; 




623 PRINT MID*(ph*)5ï 




649 SOUND 2, 120, i, 15 


,„2\~ 


5 " . 


le pion quitte sa case d oriqme 


624 SOUND 1,0, 10,0 




650 POKE &B2SF,253 


.,^j„ 


5 ' 3 




625 NEXT i 




651 PRINT NID$lph*(zj ,;,!): 


^r,' 


':)'. 4 


* ^ *-&* * * *v* **********#■*■****** ***.*#.*, 


626 ; *'**-s"fr*'#^'*w****-ï# 


se* * *^'*^»^-#*ii -s- *#*^ 


652 SOUND 1,0. 10,0 


■---^ 


- 


PEN ■ 






633 NEXT i 


524 prise vers le haut au le d&s 














5 7 b 


.OCATE c. LiPftlNT ■-HRitil&oJ ;CHR*(l67i 


628 - attente nouvel 


le partie ou -fin 


65 4 BORDER 2-1 ,....-. 




1 ' ? 


LOCATE • ,1-HîPRIHl CHR*. 168) :CHR*C1Ô 






655 FOR cela i = î ■■ |5' Oi NE > :.:■■: 


... ,„_ 


i> 




630 *****■***■«■******* 


*vs * *********** -s- + -»: 


656 1=0: c=0: =■ - = . : >=l :=' : ■ ■•• . 1 




573 


SOUND 1,2500,5,16,1 


631 t*=if#.£ï*t Vf n=" 


11 THEN o31 


657 LQCATE 8, . t:l EN 2;Fr 114: U 


t- n.-. 


579 


f OR delà i=l (0 !uo;NExT 


632 t*=UPPER*it*j 




636 60.0 40 '© . 




58 .' 


H^-H *-****#**# *#***##*#*#^*###-é* 






b.^U *"-*-**#*##*******'îHt#**##^He**#*#. * ■ - 


58j 






Devant le succès obtenu pat FLOOPY 64 sur Commodote, INFOMEDIA présente : 


u3 1 


5B2 


le pion coiviqu. est prie 


_-^n- 


■Ml AK JkHkVW 


532 Ie piopi quitts S-3 cssë d'origine 






s —~~ — ~~ — ■ 


Kl llllll V 


533 


563 
564 


******«**«M**.|ril lr****IHHHH»***«<tl 


c (r£fe t \ 


rLHIIrl strad 


534 t***^****^***^**********^**^**** 


585 


LQCATE ci,l:FRINT CHR* ( 166! : CHR* ( 167 




535 FEN 3 

536 LOCATE c,l:PRINT CHR* ( 166) ; CHR$ iio7) 






WKÊ \ 


le 1 er magazine digital pour Amstrad 


537 LGCATE c,i+l: PRINT CHR* ( lt>8i s CHR* i 16 


586 


LOCATE cl, 1*1: PRINT CHR* « 168) ; CHR* ( 1 


\ shP \ 


Au choix : 


538 SOUND 1,2500,3, 15, i 
533 FOR aslai^i Tu 100: NEXT 


ses 


SOUND 1,2500,5-, 15,1 
FOR deïai=l TO 100:NEXT 


\ «^j*i — * 


- UNE CASSETTE j pleines à craquer !! 

- UNE DISQUETTE 3 pouces / 


540 S * * ^r-r- ■>-■ S" -S- S "S 1 'S' H -* S # S * * * * ■* "M" "-■ * i*" ->-■ -?r * S tt ■* * S- 


5B9 


*■#*#** *******###-*#*'#*#*##*****«** 


~~~yZ~~~~~~~~\ 


- les meilleurs programmes : Les jeux, les trucs et les astuces, les utilitaires, 


541 


u90 




~-~^~y^^* 1 '-i 


les dessins, les musiques, le feuilleton, les potins, les annonces 


54; le pion eontifu est pris 


591 


le Pion occupe sa nouvelle case 


- la pub : les meilleurs logiciels du moment en démo 


543 


592 




\^_^^^^^^^^^ 


- les concours : Envoyez nous déjà vos meilleures réalisations, jeux, utilitaires, 


541) «.#*#*###*s-.#.*.#**##*-s***#**.«*#*#**# 


59 3 


,**■*••**»* .-***»* *4^***-*#*******T*** 


^ /^ 


dessins, musiques 


545 LOCATE c, 11; PRINT CHR$ ( 166) ; CHR* ( 167 


594 


F EH 1 


^^^^/ ^- b 


Les PROGRAMMES PUBLIES seront REMUNERES et PARTICIPENT aux CONCOURS 


544 LOI A IF r, il: PRINT CHR* ' 168) ;CHR* < 16=' 

'» 

547 SOUND 1,2500,5, 15, 1 


596 


Lui.olE c2, lsPRÏNT CHR*(172) ;CHRÏ(173 
LUCAI'E C2, ) + l:FRÎNT CHR* i 174) î CHR* il 




- cassette(s) 

38 F chez votre revendeur de soft habitue/ 

- cassette(s) 


54S FOR delai=l TO 100: NEXT 


59 7 


P EH 1 


- disquettes 3 pouces (2 faces) 


■ V4 'F' i- * Ji : ■ j) ■ * * * * * -S- * V * * * * * * * * * * * * * * * * * * * * * 


598 


LOCATE 1.2, l + l:Ff.iNT CHR* ( 170) ; CHR» ( 1 


/^^•p^/ 


59*F uniquement sur abonnement 
















80TQ 568 


_ CPC"Ï7 




ta pion occupe sa nouvel j.e case 


600 


FRANCE 

Je m'abonne pour : 


NOM ' 


FL<jp|>PY 






SK'^«*«*««*««t«*«^«*#«« 


,.F ! 
•6'\ 

603 


,^**^S-**»*+B »*******-**#+*###*#*## 


3 mois (3 disquettes) 176 F O 

6 mois (6 cassettes] 220 F O 

6 mois (6 disqoettesl 345 F O 

,,„ me.,,,,,.., 380 F O 

la. (11 disquettes) 590 F O 

ETRANGER Ne», e.n.et,.. 






s 




^aCân^ 


îst un produit 


1 


555 LuLATR t, l.'ispfilW CHR* < 172) : CHR*) 173 


annv îstion ci une part le 




JM1M i 












A tetourner paiement joint à : INFOMEDIA ESP 12 66270 LESOLER ■ TEL: 68 92 60 79 
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DISCOLOGY 

Le super utilitaire disque 'que vous attendez tous 



1 



Editeur-Copieur* Exploreur #v 
100% Langage Machine r<M& 

Fenêtres & Menus Déroulants olr (tt^X (V**" 






\ 







EDïT EU» 



LE COPIE"» 



Un Editeur secteur unique qui vous 
permet de visualiser et de modifier 
le contenu de toute disquette, 
qu'elle soit protégée ou non. 

Quatre modes d'édition combinant Ascii, hexa, décimal, octal, binaire. 

□es capacités exceptionnelles que vous pouvez exploiter immédiatement : 

• Désassemblage direct des programmes en Langage Machine 

• Listage automatique des programmes Basic 

• Les outils de bureau : ciseaux, colle, calculatrice mathématique 

Toutes les possibilités à la portée du débutant comme de l'expert : 

«• Récupérer une disquette endomagée ou un programme effacé 

• Explorer un directory. Le reparer, le modifier 

• Localiser des fichiers, les cacher, les visualiser, les modifier 



Enfin La copie de sauvegarde pour toutes vos 
disquettes (et cassettes) protégées ou pas. 




lomme l'Editeur, il reconnait 99 pistes, toutes 
les densités d'écriture, les pistes déformatées. Les 
secteurs non standard, effacés ou de taille anormale. 

Oes performances inédites à votre service : 

• Réparation automatique des secteurs endomagés 
e Gestion automatique des extensions mémoire 

• Une fonction catalogue qui permet de copier des 
fichiers séparément sur cassette ou disquette. 



J f **^ #/ Formatage, 

II secteurs, s 
U fichiers su 



Voyage au centre de La disquette... 
L'Exploreur de Discology fournit toutes 
les informations sur La disquette : 
densité d'écriture, caractéristiques des 
secteurs, secteurs "plantés", plan d'occcupation des 
fichiers sur La disquette. 

Un outil passionnant pour découvrir tous les 
secrets de vos disquettes et du contrôleur disque. 

Pour tous les "cracks" de l'Amstrad et ceux qui 
veulent le devenir. 

Discology est disponible sur disquette pour Amstrad CPC chez tous les très bons revendeurs. Vous pouvez aussi Le commander 
directement sans frais de port supplémentaires à : MERIDIEN Informatique - 11, rue téandri ■ 83100 Toulon 

• Master Save est toujours disponible au prix de 190 F. Il reprend les caractéristiques du Copieur de Disquette de Discology 

• Si vous désirez recevoir Discology et que vous possédez déjà Master Save, vous ne payez que la différence. 





BON HE COMMANDE jcpç 



O JE DESIRE RECEVOIR DISCOLOGY AU PRIX DE 350 F 

O JE DESIRE RECEVOIR MASTER SAVE AU PRIX DE 190 F 

OJE POSSEDE DEJA MASTER SAVE ET JE DESIRE RECEVOIR DISCOLOGY. JE JOINS MA DISQUETTE MASTER SAVE ET JE NE PAYE DUE 160 F 



V 



MON REGLEMENT : Q CHEQUE QUE JE JOINS (LE PORT EST GRATUIT) 



O CONTRE REMBOURSEMENT (J'AJOUTE 25 F DE FRAIS DE PORT) 
PRENOM : 



CODE POSTAL 



TEL (facultatif) 



«* 



;;:;.;;; 

:? 





EXPLOITEZ 

VOTRE 
AMSTRAD 

le livre + la cassette 

iUw Jt FRANCO 

Jeux - Gestion 
Education - Domestique 
Impression de documents 

Un best-seller 

Bon de Commande 

à renvoyer à STAMP DIFFUSION, 

27, bd de la Fraternité - 44100 NANTES 

Exploitez votre Amstrad. 103 F - Port gratuit. 



p- Ci-joint chèque de 103 F. 



ECHANGEZ 
VOS JEUX ! 



Si vous êtes lassés par vos 

jeux, ne les gardez plus, 

échangez-les contre des 

nouveautés ou des titres que vous 

ne connaissez pas encore avec: 

Boomnwy 



BP 585 
r x 



74014 ANNECY Cedex - Tél. 50.67.70.42 



Je souhaite recevoir votre documentation sur le 
fonctionnement du centre Boomerang 



CODE POSTAL : 



A retourner à : MERIDIEN Informatique - 11, rue Léandri - 83100 Toulon 



PROTEGER VOTRE AMSTRAD 

TOUS LES SACS ET HOUSSES SONT ADAPTÉS A CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 






Cochez 
bien 

les cases 
et 
couleurs 




4 



□ Sac pour Amstrad (clavier! 
CPC 4640664Q61 28DPCW 8256. D 
Colons : bleu, gris ou sable. 

Prix: 290 F TTC 

D Sac pour moniteur Amstrad mono- 
chrome Q couleur. D 
Coloris: bleu, gris ou sable. 
Prix: 400 F TTC 



□ Housse pour Amstrad (claier) 
CPC 464D664Q61 28Q PCW 8256D 
Coloris: beige, blanc, bordeaux, noir, 
marron. 

Prix: 130 F TTC 

□ Housse pour moniteur Amstrad, £^°\^r o 
Coloris: beige, blanc, bordeaux, noir, 
marron. 

Prix: 130 F TTC 



Pochettes disquettes 3' 
D pour 1 disquette . . . 
Q pour 6 disquettes . . 
O pour 10 disquettes 
Q pour 32 disquettes 
Coloris: gris, bleu ou Si 



ou 3,5" 
. . 29 FTTC 
116 F TTC 
. 1 50 FTTC 
. 200 F TTC 
ble. 



Les sacs pour claviers AMSTRAD 464 -664 -61 28 comprennent I poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires. 

POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 
rayez les mentions inutiles. 

• Port PTT à ajouter au montant de votre commande: 25F 

• Joindre votre règlement par chèque ou mandat à votre commande. 





F F U S I 



27, Bd de la Fraternité 44100 NANTES 



Nom Prénom 

Adresse 



CPC 17 



CALCULATRICE 



CALCULATRICE 



Philippe NGUYEN 

Pourquoi faire simple quand on peut faire compliqué ? Avec le 
prix sans cesse décroissant des calculatrices de poche, payez 
vous le luxe de faire vos calculs avec P AMSTRAD. Look Macin- 
tosh garanti I 



La calculatrice est présentée à l'écran 
avec un bref mode d'emploi. Une flèche, 
actionnée au moyen d'un joystick ou 
d'une souris permet d'accéder aux dif- 
férentes touches. Pour valider un chiffre 
ou un opérande, il suffît de placer la flè- 
che sur la touche correspondante et de 
"cliquer" au moyen du poussoir du joys- 
tick ou de la souris. 
Pour obtenir un fonctionnement correct, 
il faudra respecter les 2 règles suivantes : 
— entre chaque opération différente 
(addition, division...) "cliquer" la touche 



— pour procéder à un nouveau calcul, 
réinitialiser la calculatrice au moyen de 
la touche "CE". 

Cette calculatrice permet la plupart des 
opérations et la touche " # " permet de 
quitter le programme. 
Suggestion : ce programme pourrait être 
intégré dans un ensemble plus vaste : 
tableur, traitement de texte, DAO etc. 
L'accès à la calculette pourrait se faire 
par l'intermédiaire de menus déroulants 
ce qui serait une bonne application du 
programme "MENU 2 +" publié dans 
CPC n» 16. 




290 IF (x<218 AND 
300 GOTO 270 
310 



;.;78> AND (y<308 AND y>J.S6) THEN GÛSUB 400 ELSE SO TD 270 



10 '*»*** Nguyen Fhil ***** 

20 ***** pour CPC ***** 

.30 MODE 2:INK 0,26:INK 1,0s BORDER 26 

40 DEF FNcom(x>=INT<x*213/ , 639/B>+l 

50 SOSUB 930 

60 DEG 

70 FOR. j = 160 TO 288 STEP 32:F0R i=80 TQ 200 STEP 24: g7.= i-2: d7.= i + lB: bX- j-4: h7.= j+2 

0:G0SUB 920:NEXT:NEXT 

80 g7.=78:d7.=2 18; b7.=316:h7.=340: GOSUB 920 

90 g7.=70:d7.=226:h7,=356:b7.= 140: BOSUB 920 

100 gX=66:d7.=232:b7.= 132:h7.=364: GOSUB 920 

110 PRINT CHR*(23> "1"; : MOVE 10. 5*8, 302: TAG: PRINT"7 B 9 : x +"; 

120 MQVE 10.. 5*8,270: PRINT"4 5 6 - "' 7."; 

130 MOVE 10. 5*8,238: PRINT" 1 2 3 "CHR* (254)" "CHR* (250)" "CHR* (248); 

140 MOVE 10.5*S,206:PRINT"0 . C S "CHR*<249>" T"; 

150 MOVE 10.5*8, 174:PRINT CHR*<253> " "CHR*(252>" "CHR*(251>" "CHR*<255>" # 

160 WINDOWttl, 12,26,5,5 

170 PRINTt*l,STRING*(14, ". "> "O"; 

180 x=340:y=200: ax=x: ay=y : pasx=8: pasy=16 

190 MOVE x, y: TAG: PRINT CHR* (247) : : TABOFF 

200 LOCATE 50,.3: PRINT "NNH research présente: ": LQCATE 50,5: PRINT"Calculatr ice de 

poche":LOCATE 50,7: PRINT. CHR* < 164) " 1986..." 

210 LOCATE 56,9:PRINT"X Fonctions %" : LOCATE 50, 1 1 : PRINT"»=f in C=cos S=sin" 

:LOCATE 50, 12: PRlNT"L=log T=tan At=arctan" : LOC 

220 LOCATE 50, 15: PRINT"Ex=expon. -=pui55." 

230 LOCATE 50, 16: PRINT"+=add «soust. =egal .": LOCATE 50, 17: F'RINT"x=mul t i . : =d 

ivis. 7.~pourc." 

240 LOCATE 50, 18: PRINT"Dep lac. souris ou Joystick" 

250 g7.=4B*8:d7.=78*8:h7.= 17. 5*16: b7.=6»16: GOSUB 920 

260 g7.=4B*8-4 : d7.=7B*8+6 :h7.= 17. 5*1 6+4 :b7.=6* 16-6: BOSUB 920 

270 -feu=0:WHILE feu=Oj souri*FBIN* < JOY (O) , 5) : IF souri* O "00000" THEN GOSUB 310 

280 WEND 

78 



THEN Teu=l: RETURN 
THEN x=x+pasx 
THEN x=x-pasx 
THEN y^y-pasy 
THEN y=y+pasy 



IF MtD* (souri*, 1, 1)="1' 
320 IF MlD*(souri*,2, 1>="1' 
330 IF MID*(souri*,3, 1)="1' 
340 IF MID*(souri*,4, 1>="1' 
350 IF MID*(souri*,5, 1)="1" 
360 IF x>614 THEN x=614 ELSE IF x<5 THEN x=5 
370 IF y>397 THEN y=397 ELSE IF y<31 THEN y=31 

380 PRINT CHR*<23) "1"; : TAG: MOVE ax.ay: PRINT CHR* (247) ; : MÙVE x, y: PRINT CHR* < 247); 
: TABOFF 

390 PRINT CHR*(23) "O"; : ax=x : ay=y: RETURN 
400 SOUND l,x+y,10:F0R i=l TO 100:NEXT 
410 com=FNcom(x>-3 

420 FOR qw=l TO 100:CLEAR INPUT:NEXT 
430 IF- y>156 AND y<180 THEN 490:'5eme ligne 
440 IF y>lB8 AND y<212 THEN 630:'4eme ligne 
450 IF y>220 AND y<244 THEN 710:'3eme ligne 
460 IF y>252 AND y<276 THEN 780: '2eme ligne- 
470 IF y>288 AND y<312 THEN 850.: '1ère ligne 
480 GOTG 270 

490 ON com GOTO 500,510,520,530,540,550 
500 GOSUB 1090: M=T: RETURN 
510 m=0: RETURN 
520 nb=m:nb*=STR*(nb) : GOTO 1080 



': t=0: f lag--=0:0P*="":PRINT#l,STRING*(14, ". ") "O" 



THEN 
THEN 



t=t/nb 

t=t*nb 

THEN t=t+nb 

THEN t=t-nb 

THEN t=t"nb 

THEN t=t"-nb 



'":RETURN 



530 nb=0:nb*="": ; : : RETURN 

540 END 
550 IF op*="/" 
560 'IF op*="X" 
570 IF op*="+" 
580 IF op*="-" 
590 IF op *="'"■" 
600 IF op*="exp" 
610 -flag=l 

620 t*=STR*(t) :PRINTttl,STRING*(15-LEN(t*) ,".">; t»; :nb*= 
630 ON com GOTO 640,650,670,680,690,700 
640 nb*=nb*+"0":GOTO 1080 

650 IF -flag=l THEN RETURN ELSE IF nb*="" THEN nb*="0. " : f lag=l : RETURN: ELSE -flag= 
l:nb*=nb*+"." ELSE RETURN 
660 GOTO 10B0 

670 GOSUB 1 1 10: T1=CQS ( Tl >: GOSUB 1 130: NB=T1 : RETURN 
680 GOSUB 1110:T1=SIN(T1) : GOSUB 1 130: NB-T1 : RETURN 
690 GOSUB 1 110: T1=ATN (Tl ): GOSUB 1 1.30: NB=T 1 : RETURN 
700 GOSUB 1 1 10: T1=TAN(T1): GOSUB 1 130: NB=T1 : RETURN 
710 ON com GOTO 720,730,740,750,760,770 
:GOTO 1080 

2": GOTO 1080 

ï":GOTO 1080 
750 op*="exp":GOTO 1090 

760 GOSUB 1110:T1=L0G(T1) : BOSUB 1 130: NB=T1 : RETURN 
770 GOSUB 1 1 10: T1=SQR (Tl ): BOSUB 1 130: NB=T1 : RETURN 
7B0 ON com GOTO 790, 800, 810, B20, B30, B40 
790 nb*=nb*+"4":GQT0 10B0 
800 nb*=nb*+"5":GQT0 1080 
810 nb*=nb*+"6":G0T0 1080 

820 IF nb=0 THEN nb*="-0"+nb*: GOTO 10B0 ELSE op*= 
830 op*=" "-":GOTO 1090 

840 GOSUB 1110:T1=T1/100:G0SUB 1 130: NB=T1 : RETURN 
B50 ON com GOTO 860,870,880,890,900,910 
860 nb*=nb*+"7" : SOTO 1080 
870 nb*=nb*+"8":GOT0 1080 
880 nb*=nb*+"9":G0T0 1080 
890 op$="/":GOTO 1090 
900 op*="X":GOTO 1090 



720 nb*=nb*+"l" 
730 nb*=nb*+"2" 
740 nb*»nb*+"3" 



-":G0TO 1090 



79 



9 1 
920 
930 
940 
950 
960 
970' 
9610 
990 
1. 00( 

ion: 

I02i 

t03< 
1 04t 

105C 
106i 
107< 
lOBi. 
109C 
11. oc 
1 1 1 1: 
1 1 Et 
1 13< 



op!|i = " + " :BQTO 1090 « 

HOVE GV. , BV. ! DRAW . G7. , H - /. , 1 : DRAW D7. , H7. , 1 
DRAW DV. , B7. , 1 : DRAW (37. , BV. , 1 : MDVE G7.+2 , B7.-2 
DRAW D7.+ l,'B7.-2, 1 ! DRAW D7.+ 1 , H7.-2, 1 : MOVE D7.+2, 
DRAW D7.+2 , H7.-4 , 1 : MDVE D7.+3 , B7.-2 : DRAW D7.+3 , H7. 
MQVE G7.~ 1 , B7. : DRAW SX- 1 , H7. 
RETURN 

SVMBOL 25S, 0, 1 19, 68, 70, 68, 68, 1 19 
SYMBOL 254,0,224, 128,201, 134, 134,233 
SYMBOL 253,0, 144,242, 146, 151, 146, 146 

> SYMBOL 252,0,144,240,144,151,144,144 
SYMBOL 2S1, 151,245, 150, 149, 144, 151, 148, 151 

> SYMBOL 250,0,142,138,138,138,138,238 

> SYMBOL 249,0,232, 172,232, 16B, 168, 164 

> SYMBOL 248 ,0,7,1 36 , 1 36 , 80 , 80 , 32 

> SYMBOL 247,255,130,132,132,130,177,203,134 
i RETURN 

) nb==VAL <nb*) lPRINT#l , STRIMB* < 15-LEN <nb* 
i IF flag=l THEN flag=0 ELSE t=nb 
) nb=0:nb*=""i RETURN 

i IF flag = l THEN FLAG=0:T1==T ELSE T1=NB 
.) RETURN 
1 T1*=STR* (tl) :PRINT#1,STRING$ (15-LEN(tl- 



B7.-2 
-6 , 1 




') ;nb$; : RETURN 



. ") ; tl*; : RETURN 



sari JAGOT et LEON 

17, rue des Alliés, 42100 Saint-Etienne 
Tél. 77,33.13.82 


WtÔ^LM 


ipa^* 


MULTISERVI 

Boîtier électronique avec logiciel intégré réalisant 5 applications. 

1 ALARME. 

2 SIMULATEUR DE PRESENCE. 

3 PROGRAMMATEUR HORAIRE. 

4 ANIMATION LUMINEUSE. 

5 REVEIL 

PRIX PUBLIC : 990 F 


PHARM-INVENTAIRE 
PHARMA GESTOCK 

1 INVENTAIRE COMPLET FOURNI 
AVEC TARIFS. 

2 REACTUALISATION ANNUELLE. 

3 GESTION DE STOCK 
PRINCIPALEMENT ORIENTE 
PARA-PHARMACIE 

PRIX PUBLIC : 1 490 F HT 


Pour CPC 464 (avec extension 64 K 
664 


JAGOT et LEON) ou CPC 6128 





Une inprinante professionnelle 



W votre PCU DU NOTRE PC: 

itesse x ci.Prix s; i 




HOKBRE DE COPIES : 1 original * 3 doul 
Possibilité d'adapter un ctargeur autf 

POLICES de CARACTERES SUPPLEMENTAIRES 
San FEU :AR E 

AR 55 = 6000 



illle b -feuillet 



TURBOEXPERT.BASE 

249,00 francs 



200 (K. 421S.DDJT LTSTEHEH 

"perfforfl ance" ^q^|g[ 

Enfin une interface 
vrainent télématique ! 
1 Pour votre PCM.,.. 

1200,00 francs HT 




par LOISIÎECa. VT Llï 



HEl'iiTITIOH... 



Remises à jours CPM 
T0P.BOKHPKRT BASE 
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Véritable langage expert,,, 
; Qui vous permet d'apprendre! 

* réjlenent exclusivement en chèque ou nandat-lettre il 

Centre cowiercial "Terninal 93" 
9310G MONTREUIL-CEDEX r,j|, 
TEL, (1)48 S9 72 76, StL-û 
JERUEUR.(1)48 59 17 ^ 



mm iMCEmi 

MME LE M0H1AHI 

*a.l Fraies DE 

rais s-ENini ou 

»3S,« Frans si 
vous ikïm m 
envoi concre- 
refhoirsenent, 



lEEaiEH 



CPC 17 



locunenmion 



esjx maauoMEL ihsssiàe 25 décembre 

JE 5Q E 4215 , 00 franre; 
IX 55 = 5852^» frauca 
L01SITECB-DISTRIBOTID1 > 



PRENOM 

ADRESSE 



ML! 



"Ci joint un chèque d'acoupte de 308F. à la 
" comande le solde en contre-renboursenent* 






S.U.M COMPUTERS 



1 1 ' ! ' ? ' I ' . ' ! " . ' I ' ! " I ' 1 ' ! ' j ' I ' . ' ' . ' ' ' ! ' V \ ' ? ' ' ' ^ ' ' ' ' ' " " ' ' " * 



ENFIN UN SPECIALISTE 
S'INSTALLE DANS LE 93 .' / 

AMSTRAD *» COHHODORE 
THOMSON *» M.S.X 

REPARATION TOUTES MARQUES 

DELAI y .JOURS «l.. +op-*«it: 
ou dBvÎB ,n '*t:Landu>x p,ï i..t «h ! 

^PROMOTIONS D'OUVERTURE* 

logiciels a partir de 35 F 
disquette 3 pouces.., 2S F 
joystick quikshotll . , 65 F 
ordinateur MSX 790 F 



5 rue CHARLOT 93700 DRANCY 
TEL:48.95.96.81 
du MARDI au SAMEDI 



'•'• 555555555553 



34, rue de Turin 
75008 PARIS 
Tél. (1)42 93 47 32 
Métros : Rome, Liège, 
St-Lazare, Place Clichy. 



DISQUETTE 



3" 





POUR AMSTRAD" 



EN PROFITANT DE NOS PROMOTIONS 

• 1 TH 175 + 10 DISQUETTES 3" 329 F 

• 1 TH 172 + 20 DISQUETTES 3" 690 F 
DISQUETTE SEULE 3" [-... n M 30 F 



MICRO -C 

3, bd de Beaumont 
35000 RENNES 
Tél. 99.31 .76.41 

ÉDUCATIFS sur CPC 

• ÉQUATIONS (3 e , 2 e ) 200 F 

• GÉOMÉTRIE PLANE (3 e àterm.) 200 F 

• ESPAŒETSOLIDES(2 e àterm.) 200 F 

• MATHS -SECOND CYCLE 250 F 

• MATHS -54 (5 e à 4 e ) 200 F 

• MATHS -6 (6 e ) 200 F 

UTILITAIRES (sur DQ) 

• CHERRY PAINT, PROMO 280 F 160 F 

• RAMDISK (CPC 6128 
et464avecDKtronics) 190 F 

• PCW PAINT (D.A.O. sur PCW) 350 F 

JOINDRE CHÈQUE A LA COMMANDE 
+ 3 TIMBRES A 2,20 F 




SOUS QUELLE 

ETOILE 
SUIS^ENE? 

290 F. 

La disquette double-face 



MIROIR 
ASTRAL 

Avec une date, une heure et un lieu de naissance, 
votre CPC établira un portrait psychologique 
approfondi d'environ 15 pages sur imprimante ! 
Un logiciel qui vous étonnera par sa profondeur I 
(version familiale d'un logiciel utilisé par les professionnels) 



Astropsychanalisez votre famille, vos amis, 
comme les plus grands hommes célèbres.. 



Commandez votre disquette pour CPC 6128 ou CPC 664 
(PORT GRATUIT) à: 

Bernard VILLEMIN 

317, Av. de Verdun - 831 1 SANARY - Tél. 94 74 32 00 



%~3 







sm 









*->j).-»..ri, ,;sr.' ,--^ «E A4l i r | '"• ' "" *■ * 



- 
■ . -»» 

1 *> 



*"-:-.d\i-ES TURBOT 



W FRACTALS 




Wolfram LUTHER 



*0SwÊffi'fÉ.- US 



%ÏÉ 






J A V*i»'W} VI..'.-. <»E? ^r*-;*:-:-::»^ 1- : 



$StfÉiî^%r£ 









Qui n'a déjà entendu parler de ces fameux objets fractals ima- 
ginés et mis en évidence par 8. MANDELBROT, sujet large- 
ment commenté dans les revues lors de la lancée des ordina- 
teurs familiaux. Les jolis motifs créés en haute résolution ressem- 
blent à des dragons ou des pommes-mâles qui font leur apparition 
dans des échelles de plus en plus petites. 



Vous allez peut-être dire que tout cela est 
trop connu et que le temps d'exécution 
des programmes générant les fractals sur 
un ordinateur muni d'une CPU à 8 bits 
rebute tout le monde. 
Effectivement, l'emploi du Basic est 
exclu à cause de la lenteur d'un langage 
interprété. Même les réalisations en lan- 
gage machine demandent souvent plus 
d'une heure pour créer un seul écran- 
Un nombre exorbitant d'opérations en 
virgule flottante est en effet nécessaire 
pour déterminer la couleur de chacun des 
64 000 points en mode graphique. 
Or les routines de calcul sont difficile- 
ment programmables en langage 
machine. 

Notre choix s'est donc porté sur un lan- 
gage rapide et évolué, le Turbo-Pascal, 
disponible également sur AMSTRAD 
CPC et AMSTRAD PC. Et comme les 



opérations concernant les variables 
entières sont ultra-rapides, pourquoi ne 
pas éviter complètement le calcul en vir- 
gule flottante ? 

Expliquons d'abord l'algorithme 
employé : 

Nous partons d'un point aux coordon- 
nées (x,y), posons xn: = x, yn: =y et ini- 
tialisons un compteur PROFONDEUR qui 
décrit le nombre d'itérations. 
Un nouveau point est calculé de la 
manière suivante : 
xn: — (xn + yn)*(xn- yn) - x 
yn: = 2*xn*yn - y, 
et le procédé se répète jusqu'à ce que 
abs(xn} + abs{yn) dépasse une valeur 
donnée, par exemple 51 1 ou encore 
1023. 

A ce moment-là, nous prenons la valeur 
du compteur j modulo 4, soit 0, 1 , 2 ou 
3. 



v ^^ t ^T^^T^!^S^^^'^l^^^^ 












; iï- jffc 
■:<-■., £*àr.C, 






'«Si- 
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program fractals; 



pro+ondeu 


", >:.y: 


1 nteger; 








ch: char; 












-ÏCP/M 2v2 


AMSTRAD 


extension 


qr 


aph 


quel 


const 












bc: 


nteger 


= Ï7FB5; 








orocedure 


callrom 










beain . 












inline( 












SD<?/*ED/*4B/bc 


/$D9 









procédure Qrigin(x,y:integer): 

callrom; {éliminer sous CF/lf 3.0Î 
ml me C 
ï2A/-K/$EB/*2A/y/ 

SCD/*C9/ÏBB 

) ; {Sous CP/M 3.0 *CD/45A/ÎFC/ÏC9/tBB> 
end: 






procédure plot (>; 
begi n 

cal Iram; 
inlinel 
ï2A/:;/IEB/*2A/y/ 
ÏCD/îEA/ÏBB 



procédure gra+pen<pl:byte); 

ml ine< 
î3A/pl/ 
ÏCD/ÎDE/ÏBB 
) ; 



procédure ink(pl,pll,pl2; byte) ; 
begin 

write (#28, chr (pi ) , chr (pi lî , chr (pl2> ) ; 
end; 
■[fin module graphique CFCJ 

functian iter: byte; 

xn.yn, a,b,c,d,j: integer; 

begin 

j:=prof ondeur; 

.in:=x; yn: =y; 

repeat 

a:=xn— yn; b: =>;n+yn;d: =f.n*yn; cs=a»b; 

i-f c>=0 then nn:=c shr 6 — x 

else xn:= -(abs(c) shr fa> - x; 

if d>=0 then yn:= d shr 5 -y 

else yn:= -(ab5(d) shr 5) - y; 

j: =pred (j) 

until C_i=G) ar (abs (xn)+abg (yn) >1023) ; 
iter:= j mod 4 
end; 

begin 

profondeur: =20; 

write(*4,#l) ; {mode 1, PC: graphcol or mode > 
înk (0,26.26) ; 1 nfc ( 1 , 12, 12) ; ink (2,6,6) ; înk (3,0,0) 
tPC: palette(3); graphbackground (0) ] 
origin(320,2ÔO) ; {seulement CPO 
-for x:=-16Û to 159 do 
beqi n 

■for y;=-100 tD 99 do 
begin 

qraf pen (iter) ; plot (2*;< T 2*y) 
{PC: plot (x+ 160, y+ 100, iter) > 
end 
end; 
read (kbd, ch ) ;wnte(#4,#2) 
{mode _2, PC: textraode} 
endf 






Ce nombre indique le numéro de plume 
qui servira à marquer en couleur le point 
de départ (x,y).- 

La version prévue pour l'AMSTRAD CPC 
est exécutable sous CP/M 2.2. En tête 
sont définies les procédures graphiques 
PLOT, GRAFPEN et INK. Les heureux 
possesseurs d'un module graphique peu- 
vent se passer de cette partie. 
La fonction ITER fournit l'encre de la 
plume graphique utilisée pour tracer le 
point actuel. 

Tapez vite ce petit programme et vous 
allez admirer ta vitesse inouïe du Turbo 
Pascal : 

1 2-1 3 minutes pour un écran en mode 
1 comprenant 64 000 points à colorier 
individuellement, soit d'environ 10 mil- 
lions d'opérations d'addition, de multipli- 
cation, de décalage ou de comparaison 
à effectuer. Ce n'est pas négligeable et 
les dessins sont remarquables, même 
s'ils sont connus. 

Voici le programme et quelques échan- 
tillons . 



Une dernière remarque : si le Turbo vous 
intéresse et si vous aimeriez savoir 
comment nous avons réalisé les recopies 
d'écran sur imprimante, consultez le livre 
TURBO-PASCAL sous CP/M 80, de P. 
M. BEAUFILS et W. LUTHER aux Edi- 
tions Eyrolles, Paris. 
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VCB2 



Micro club 



Tel : 48 67 66 01 



Presse spécialisée unanime. . . 

Déjà 5000 cours distribués. . . 

COURS D'AUTOFORMATION SUR TRAITEMENT DE TEXTES AMSTRAD 

Possibilité de le consulter pendant l'utilisation 390 Frs TTC 

COURS AUTOFORMATION BASIC ,.,«««» 

CASSETTE . 115 f« 

BASIC et CPM + 

DISQUETTE : 215 Frs 



Disquette 3 pouces 



: 35 



Frs 



COMPILATION 

SUR LA MEME DISQUETTE 



•# 



*.«'-■ 



» Cours autoformation basic 
. Simulateur de voile DAMSTAR 
• Pour vos enfants, apprenez leurs 
le calcul et l'heure _ 



Manette de jeux : QUICK SHOT : 65/v, 

COURS D'AUTOFORMATION BASIC 
SUR PCW : 290 F 

Un magasin est à votre disposition , avec les dernières nouveautés /au centre 
commercial BOBIGNY 2 Tel . 48.31. 69.33 

Nous vous remercions d'adresser vos commandes accompagnées d'un chèque 
à l 'ordre de -. VÇB2 G ARONOR_ 19 D_ BP 320 

93614 AULNAY/S/BOIS 



FENDISC 



Laurent Poncioni 



12/0 


DATA 


BU 


CD 


80 


BC 


C3 


va 


76 


CD, 


1254 


1 280 


DATA 


BO 


BC 




03 


77 


CD 


80 


BC, 


1009 


1 290 


DATA 


32 


05 


77 


CD 


80 


BC 


■jjil 


07, 


752 


1300 


DATA 


' ' 


CD 


80 


BC 




08 


77 


CD, 


1022 


1310 


DATA 


E4 


la 


3A 


08 


77 


47 


C5 


3A, 


857 


1320 


DATA 


07 




47 


C5 


E5 


CD 


80 


BC, 


1144 


1330 


DA l'A 


El 




CD 


20 


BC 


Cl 


10 


F 3, 


1221 


1340 


DA TA 


2A 


m 


77 


CD 


26 


BC 


^ji 


09, 


644 


1350 


DATA 


77 


Cl 


10 


E2 


CD 


7A 


BC 


C9, 


1270 


1360 


DATA 


DD 


66 


09 


DD 


6E 


08 


22 


01, 


706 


13/0 


DA TA 


77 


DD 


7E 


06 


■-■'- 


03 


77 


DD, 


865 


1 380 


DA 1 A 


/E 


04 


32 


04 


77 


DD 


7E 


02, 


652 


1390 


DATA 


32 


05 


77 


DD' 


7E. 


J 


■..'.•J- 


06, 


577 


1400 


DATA 


77 


C9 


CD 


H 


BC 


2E 


14 


D4, 


1008 


1410 


DATA 


FE 


76 


06 


02 


B8 


ce 


FE 


76, 


1 1 40 


1420 


DATA 


3A 


04 


77 


BD 


D2 


B8 


76 


06, 


888 



1 43ij 
1440 
1450 
1460 
1470 
1480 
1 490 
1 500 
1510 
1520 
1 530 
1540 
1550 
1 560 
1570 
1580 



DAIA" 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



3A, 
06, 
76, 
B8, 
3A, 
21, 
E5, 
FI, 
20, 
73, 
74, 
3A, 
09, 

J<D, 

C9I 



47, 3E 

03,77 

B8,76 

77, B8 

76,06 

5D,BB 

45,7: 

61, 6E 

70,61 

65,73 

77,6F 

C9,21 



B. 

, DA,B8 
,18,B8 
,47,3A 

A,0 
, DA,B8 
, 1A.C5 
,E1,C1 
,72,65 

73,20 
, 72,6 
,3A,03 
,CD,1A 
,03,77 
,35,C9 



,DA,B8 
,04,77 
,77,47 
76, C9 
,7E,23 
, 10, F5 
,75,72 
, 6C , 65 
,6D,65 
,77,67 
,BC,22 

,CB,25 
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944 

863 

550 

957 

1088 

743 

1393 

1071 

695 

777 

729 

746 

572 

670 



DESCRIPTION 

FENDISC est un utilitaire de gestion de 
fenêtres sur disquette (ou cassette) écrit 
en assembleur. Il permet la sauvegarde 
et le chargement de fenêtres d'écran 
délimitées par les lignes et colonnes 
alphanumériques, et non pas pixel par 
pixel - ce qui aurait compliqué et allongé 
presque inutilement le programme. En 
effet, FENDISC convient à la plupart des 
applications qu'on peut trouver pour un 
gestionnaire de fenêtres sur disquette : 
par exemple la gestion des graphismes 
dans un jeu d'aventure où il faut repré- 
senter plusieurs situations dans un même 
paysage (porte ouverte ou fermée, objets 
cachés ou visibles). De plus les dessins 
seront sauvegardés plus rapidement 
qu'avec une copie complète de la RAM 
écran (important pour les lecteurs de cas- 
sette) et surtout plus économiquement 
puisqu'un dessin n'occupe généralement 
pas l'écran entier (même dans ce cas, 
une copie de l'écran entier occupe 16 K, 



et non pas 17). Le programme fonc- 
tionne sur les CPC 464, 664, 6128 et 
dans les trois modes d'écran (on peut 
également sauver une fenêtre dans un 
mode et la recharger dans un autre mode 
- elle sera bien sur un peu transformée). 

UTILISATION 

FENDISC est donné une fois en BASIC 
sous formes de DATAS et une fois en 
assembleur (Hisoft DEVPAC). Il a été 
placé à l'adresse 30000 et n'est pas relo- 
geable (pour les possesseurs d'un 
assembleur, il n'y a qu'à changer le ORG 
30000). Le programme fait 465 octets 
de long, mais il faut laisser libres les 2 
K consécutifs au programme qui sont uti- 
lisés comme buffer disquette (ou 
cassette). 

Depuis le BASIC, la syntaxe de !a routine 
est la suivante : 

CALL 30003, a$,gau 

che, droite, haut, bas 
pour sauver la fenêtre (a$ contenant le 



nom du fichier) 

et CALL 30000, a$ , gauche, haut 
pour charger la fenêtre a$ à n'importe 
quel endroit de l'écran. 
Si l'on exécute un CALL 
30000, a$ ,0,0 la fenêtre a$ sera char- 
gée à l'emplacement où elle avait été 
sauvée (ceci grâce aux paramètres sau- 
vés en même temps que la fenêtre). 
Il est indispensable que le nom de fichier 
soit transmis dans une variable car CALL 
n'accepte comme paramètres que des 
nombres de 16 bits maximum (or 
l'adresse de la variable a$ - a$ - est jus- 
tement un nombre de 16 bits). 
FENDISC est aussi utilisable directement 
depuis l'assembleur pourvu que l'on ini- 
tialise correctement les variables. 

LE PROGRAMME 

Le programme est auto-documenté, ce 
qui devrait suffire à ceux qui désirent 
l'améliorer (la structure du programme 
n'étant pas très complexe). 



lu :iLiiLj:;v 29999 

20 FUR adr=30uC*0 1 30464 

30 READ octî:oct-V'MH"?'."+oct$) : F'UkE adr, 

QCt 

40 3um 1 =3um 1 +oç t 

50 IF adr MOD b-7 ThlEN READ sum2: IF suml 

^SUffl-2 THEN 5uml=0 ELSE PRINT"erreur en 1 

igné "; (adr-30007) /8*10+1000: END 

60 NEXT 

/0 SAVE" tend î se. b in" , b , 30000, 465 

80 END 

1000 DATA C3,BE,75,CD,50,76,CD,F3, 1353 

1010 DATA 7ô,'CD,72/76,FD,2A,Ol,77, 970 

1020 DATA FD,46,00,FD,6E,01,FD,66, 1042 

1 030 DATA 02 ,11, OC , 7 7 , CD , BC , BC , DO , 69 1 

1 040 DAT A 2 A , u3 , 77 , 7C , 95 , 3C , 32 , 07 , 554 

1050 DATA 77, CD, 11, LC,2A, 07,77, DC, 917 

1060 DATA FE,?6,0è,©2*8ëi&C,FE,7Q, 1156 

1070 DATA 7D, 32, «7, 77, 2A, 05,77, 7C, 591 
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1080 


DATA 




3C 


CB 


27 


CB 


27 


CB 


27, 


935 


1090 


DATA 


32 


08 


77 


3A 


03 


77 


CD 


95, 


711 


1100 


DATA 


BC 


3A 


05 


77 


CD 


95 


BC 


3A, 


970 


1110 


DATA 


07 


77 


CD 


95 


BC 


3A 


08 


77, 


853 


1120 


DATA 


CD 


95 


BC 


CD 


E4 


76 


3A 


08, 


1159 


1 1 30 


DATA 


77 


47 


C5 


3A 


07 


77 


47 


es, 


839 


1 1 40 


DATA 


7E 


47 


CD 


20 


BC 


78 


ES 


CD, 


1176 


1150 


DATA 


95 


BC 


El 


Cl 


10 


FI 


2A 


09, 


1063 


1160 


DATA 


77 


CD 


26 


BC 


22 


09 


77 


Cl, 


905 


1 1 70 


DATA 


10 


EO 


CD 


8F 


BC 


C9 


DD 


2B, 


1241 


1180 


DATA 


DD 


2B 


DD 


2B 


DD 


2B 


CD 


50, 


1077 


1 190 


DATA 


76 


3 A 


04 


77 


•-'^ 


05 


77 


47, 


544 


1200 


DATA 


3A 


03 


77 


BO 


■32 


OB 


77 


F5, 


781 


1210 


DAIA 


3A 


03 


77 


32 


04 


77 


3A 


05, 


416 


1220 


DATA 


77 




06 


77 


C4 


F3, 


76 


FI, 


1092 


1 230 


DATA 


C4 


72 


76, 


fd' 


2A 


01 


77 


FD, 


1096 


1240 


DATA 


46, 


00, 


FD, 


6E, 


01 


ED 


66 


02, 


791 


1250 


DATA 


H 


OC 


77 


CD, 


77 


BC 


DO 


3A, 


926 


1 260 


DATA 


OB , 


77 


B7, 


CA 


OF, 


76, 


CD, 


80 , 


981 ► 



lo HEHQFiY J0oO0:L0Al>" fendisc.bin" 

20 MODE 2 

30 FOR i = l lu 50 

io MOVE RND*ô40,RNL'*400:DRAW RHD*640,RND 

*40O 

50 NEXT 

60 a$="essal.fen":CALL 30003, @a$, 15, 40, 1 

1,19 

.'0 WINDUW itl, 1,80, I . 1 

80 CES #1:RR1NT #l,"La fenêtre a ete sau. 

vee. " 

90 CALL MB06:CLS 

100 FRINlttl , "El le est maintenant recharg 



ee par un CALL 30000, % a $,( 

110 CALL 30000, Bat, 0,0 

120 CALL fiBEOfc 

130 CLS «1:PRIN1#1, "On la 

ur^i avec un CALL 30000, @aJ 

140 CALL 30000, Oat, 45, 14 

150 CALL S-BB06 

160 MODE l:PRINT"En mode 1" 

170 CALL 30000, Sa*, 0,0 

180 CALL ?<BB06 

190 MODE 0:PRINT"Et en mode 0" 

200 CALL 30000,0a*, 5, 79 



recharv^e aille 
,45, 14" 



34P LD B,nv- 



CfiLL «BUISC 



A= DROITË-BSUIIHI !■■ 



LD fl, (LIGNES) 
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PUS H AF 

LD A, ( UiACChC I 

LD (DROITE) ,A 

LD A, (HAUT). 



CALL LDQCT 
LD (GAUCHE) , 

CALL LDGCT 
LD !HAUT>,« 



DROITE .' I3AUCHÈ. ou BH5 < HAUT 



LD A,(HAUT) 
LD B,A 

LD A,(HASV 



24BO ERREUR: 



2660 t 
SbFJO ; 



INC HL 
DEC (HL) 
INC HL 



ICHE^liOUCHE-l 
IIT£=DRuITE--l 



VÂ° ■ 


CALL 


KBE20 


1800 


psm 


L0DR5 


1810 ; 










HL, (ADR1 


1S.Î0 


CALL 




£870 | 


LD 


BC 
LGOF'4 


1B90 


RËT 


#BC7A 








1920 ; 












ÎS 


S 


H, (IX+91 
L, (IX+St! 


1 5S0 


LD 


! BRUCHE 1 


2Û0C1 




a,iix+"H 


soi o 




IDRGITE) 


7.0'ZQ 


LD 


fl,<lX+2) 



DISK IN CLOSE 



2160 
21,70 
21(30 
2.1 90 



LD A, (DIÏIi:.TFJ 

CP L 

JP NC, ERREUR 



1, (GAUCHE) 
I, ERREUR 



ii MODE 2 

.=20,40 ou BO suivant NODE 



■'f.n.ii.i GAUCHE: DËt'U t 
:!■(.! 10 DftCJlTEs DEF'B ( 



i 6LIFFER: m:\-ti afii.xi 



L 

1 






4 






rwj 




■' 






Pi 

7v 


■m 


ii 


II 


iiiiiil 
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"Maintenant, j ai mes 
_ entrées partout", 

,/ „ JL ALIENORII 




IVlaintenant que j'ai mes entrées sur IBM PC et compatibles, je 
vais devenir la coqueluche du 1 monde des ordinateurs ! 
Mon programme de comptabilité est complet et performant. En 
plus j'ai le contact facile : à travers l'écran, j'établis une relation 
directe avec l'utilisateur. Pas besoin d'être un crack de l'infor- 
matique ou de la comptabilité pour oser m'aborder. Suprême 
délicatesse : mes 4 000 frères jumeaux déjà sur le marché ont eu 
l'élégance de ne pas ruiner leurs acquéreurs. Rapides, efficaces et 
discrets, le «tout informatique» ne peut plus se passer de nous. 

LOGICYS 

Les clés de 1 efficacité 

CENTRE EMERAUDE. CIDEX 47, 33150 CENON. TEL. 56.40.94.75 




The Ulîimaîe Fight est un programme qui se joue à deux (profi- 
tez en pour inciter vos amis). 
Le but du jeu est d'arriver à tuer votre adversaire qui vous a pro- 
voqué en duel. Vous vous êtes donc donné rendez-vous dans le 
désert. Armé d'un revolver pour tuer votre ennemi, vous devez lui 
tirer 10 balles dessus. 

Mais il faut attendre que le canon se refroidisse entre deux tirs et, 
à chaque fois qu'un des joueur est touché, le tableau change et 
lorsqu'un des cow-boys est mort vous avez droit à une belle 
animation. 



EXPLICATIONS DU PROGRAMME 

Ce programme comporte, comme vous 
avez pu le constater, de nombreuses rou- 
tines en assembleur. 
H V a tout d'abord une routine qui per- 
met d'afficher des sprites colorés. Cette 
routine, pour une rapidité plus grande, 
accède directement à la mémoire écran 
et affiche des sprites pré-encodés de 
taille quelconque. 

Il est indispensable que l'écran n'ait pas 
subi de scrolliri'gs, son accès se fait par 
un CALL &A400,NS,X,Y où NS est le n° 
de sprite, X la colonne et Y la ligne. 
Il y a également une routine qui s'appelle 
par un CALL &A402,NS,X1 ,Y1 ,X0,Y0 
qui efface le sprite n° NS en position 
X0,Y0 et le réaffiche en X1,Y1. Mais^ 
l'une des routines les plus importantes 
de ce jeu est certainement celle située 
en &A100. En effet c'est elle qui fait 
tous les tests lorsqu'une balle est tirée. 
Elle fait avancer la balle d'un caractère, 
vérifie si elle heurte un obstacle (si c'est 
le cas elle décrémente le compteur de 
l'objet et si celui-ci atteint l'objet est 
effacé) et teste si la balle sort de l'écran. 
Cette routine gère en même temps les 
balles des deux joueurs ce qui permet 
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une plus grande équité, c'est grâce à 
cette routine que le programme est aussi 
rapide. 

Les CALL &BB4E servent à ré-initialiser 
l'écran (suppression du mode inverse), 
les PRINT CHR$(&30 + NBR) ; permet- 
tent d'afficher un seul chiffre sans effa- 
cer les caractères voisins. 
Dans les lignes 400 et 41 les IF THEN 
IF THEN permettent de ne pas ralentir 
inutilement le jeu si personne ne tire. 
Les nombreux POKE et CALL &A300 



servent pour initialiser les paramètres de 
la routine de gestion de balles. Le titre 
est affiché avec un TAG puis avec un 

PRINT, le mode transparent ayant été 
mis, ce qui évite l'effacement du fond. 
Il faut noter que pour des raisons de 
balayage écran on ne voit pas toutes les 
positions de la balle, car si j'avais 
synchronisé l'affichage de la balle sur le 
retour du rayon elle aurait été trop lente. 
Si le cœur vous en dit vous pouvez très 
bien créer vos propres tableaux (lignes 
de DATAS 600...) en changeant les 
datas organisées comme ci-dessous : 
NS,HS,X,Y,NC : 
NS = n° du SPRITE ; 
HS - hauteur du SPRITE ; 
X et Y sont la positions du SPRITE (il faut 
noter que le haut à gauche de l'écran a 
pour coordonnée 0,0 et 1 ,1 comme avec 
LOCATE) ; 

NC le nombre de coups qu'il faut tirer 
pour détruire le SPRITE (si NC = alors 
un nombre aléatoire de coups sera choisi 
entre 1 et 4). 

Les SPRITES utilisables dans un tableau 
sont : 

4 : cactus ; 

9 : serpent ; 

1 : arbre mort ; 

1 1 : crâne de bovidé ; 

I 2 : scorpion ; 

22 : petits cailloux compacts ; 

23 : petits cailloux éparpillés ; 

24 : buisson ; 

25 : crâne humain ; 
27 : gros caillou. 

Les hauteurs sont toujours de 3 sauf 
pour les SPRITES : 
22 et 23 : hauteur 1 ; 
24 et 25 : hauteur 2. 

II peut y avoir jusqu'à 31 objets dans 
chaque tableau (qui doit impérativement 
se terminer par -1). 

Vous avez également la possibilité de 
faire varier : 

— Le temps entre 2 coups successifs en 
changeant aux lignes 370 et 380 le : IF 
T 1 > 5 ou le : IF T2 > 5 par une valeur dif- 
férente, ce qui permet de donner un han- 
dicap à un joueur plus expérimenté ; 

— Le temps mis pour que les balles 
"remontent" en remplaçant à la ligne 
430 le : MOD 25 par une valeur diffé- 
rente ex. : MOD 15 ou MOD 30. 

Les touches sont aisément redéfinissa- 
bles en changeant la valeur des 
INKEY(X), 
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'* * 

■* THE ULTIMATE FIGHT * 

: * # 

'# PROGRAMMATION : BAUDOIN Y. * 

' * # 

'* GRAPHISMES : ROUX MAXIME * 

' *+###+##*###*##**#*##**#**#*#*##**##* 
DATA 18,1A,FE,05,CO,DD,7Ë,08,03,58 
DATA DD,66,02,DD,6E,00,F5,CD,04,52 
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74, A4, FI , DD, 66, 06, DD, 6E, 04, 9D 
04, CS, 74, A4, FE, 03, CO, DD, 04, 7D 
7E,04,DD,66,02,DD,6E,Û0,03, 12 
C3, 74, A4, D5, CD, 51, A4, 01,05,43 
EB , 4E , 23 , 7E , OF , 47 , EB , 1 3 , 03 , 2E 
C5.E5, 1A,AE,77,23, 13, 10, 03, 2F 
F9 , E 1 , 1 , 00 , 08 , 09 , 30 ,04, 02 , 20 
01 , 50, CO, 09, Cl , OD, 20, E8, 02, FO 
C9, 06, 02, 5C, 16, 00, 62, D5, 02, 7A 
54, 5D, 29, 29, 19,29,29,29,01,97 
29, Dl, 19, 10, FD, 11,00,00,02,31 
Bl, 19,7C,E6,07,67,3E,C0,03,98 
00, 84, 67, C9,E5, 17, 21, 84, 03, 55 
A4, 16,00,5F, 19, 5E, 23, 56, 02, 09 
El , C3, 2B, A4, 00, 90, 93, 90, 04, 26 
26, 91 , B9, 91 , 4C, 92, DF, 92,04,50 
F2, 92, 05, 93, 98, 93, 2B, 94, 04, 06 
BE, 94, 51 , 95, E4, 95, 00, 84, 04, 35 
03,85, 06, 86, 09, 87, OC, 88, 02, 38 
0F,B9, 12,8A,15,8B, 18, 8C, 02, 78 
77, 96, AA, 96, DD, 96, 40, 97, 04, 97 
A3, 97, C6, 97, 00, 00, 00, 00, 02, 97 
3A , 00 , 9F , B7 , 28 , 2D , 3A , 06 , 02 , 25 
9F,F5,67,3A,07,9F,6F,3E,03,8B 
05, CD, 74, A4, FI, 3C,FE, 26,04,38 
CA,A8,A1,32,06,9F,2A,OA,03, 1E 
9F, 16,00,5F, 19, 7E, 67,20,02, 82 
3B , 3A , 07 , 9F , 6F , 63 , 3E , 05 , 02 , 30 
CD,74,A4,3A,01,9F,B7,C8,04,3E 
3A , 08 , 9F , 67 , F5 , 3A , 09 , 9F , 03 , 1 F 
6F,3E,06,CD,74,A4,F1,3D,03,C6 
FE, 02, 28, 73, 32, 08, 9F, 2A, 02, 9E 
OC, 9F, 16,00,5F, 19,7E,B7,02,6E 
20, 16, 3A, 09, 9F, 6F, 63, 3E, 02, 28 
06,C3,74,A4,32,0E,9F,AF,03,6F 
32, 00, 9F, CD, 77, Al, 18, C3, 03, 91 
32, OE, 9F, AF, 32, 01 , 9F, 21 , 02, 81 
OF, 9F, 3A, OE, 9F, 16, 00, 5F, 02, OA 
19,7E,3D,77,B7,C0,3A,0E,03,0A 
9F, 17, 17, 5F, 21, 2F, 9F, 19, 02, 34 
7E, 57, 23, 7E, 5F, 23, 7E, E5, 03, SB 
62,6B,D5,CD,74,A4,D1,E1,05,39 
23,AF,4A,43,56,C3, IF, A3, 03, 3A 
AF, 32, 00, 9F, 3A, 03, 9F, 4F, 02, AB 
3A,07,9F,B9,C2,33,A1,3E,03,6D 
FF,32,05,9F,C3,33,A1,AF,04,1B 
32,01,9F,3A,02,9F,4F,3A,02,36 
09, 9F, B9, CO, 3E, FF, 32, 04, 03, 94 
9F , C9 , 00 , 00 , 00 , 00 , 00 , 00 ,01, 68 
18, OE, 21 , 00, 80, 1 1 , 01 , 80, 01 , 59 
01 , E7, 03, 36, 00, ED, BO, C9, 03, 87 
FE, 04, CO, DD, 7E,06, DD, 4E, 04, 4E 
04, DD, 46, 02, DD, 56,00,05,03,31 
21, D8, 7F, 16,00, 1E, 28, 04, 01 , D8 
19, 10, FD, 16, 00, 59, 19,01,02, 7F 
42, 1 1 , 26, 00, 77, 23, 77, 23, 01 , AD 
77 , 1 9 , 1 , F 8 , C9 , 00 , 00 , 00 ,02,61 
20,10,00,10,00,00,40,00,00, 80 
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DATA 00,00,00, 10,00,00, 40,00,00,50 
DATA 00,00, 10, O0,70,F0,40,C0,03,00 
DATA 10,00,20,50,F3,F6,DO,20,03,59 
DATA 10, 40, 20, 40, F3, F6, 90, 20, 03, 49 
DATA 10, 50, 40, 20, 71, F4, 20, 10,02,55 
DATA 20,50,40, 10, 70, FO, 40, 10,02,70 
DATA 20 , 90 , 80 , 98 , 73 , FE , 40 , 88 , 04 , 1 
DATA BO,AO,80,88,B1,E4,80,B8,04,F5 
DATA 80, EO, A2, AA, 90, CO, A2, AA, 05, 48 
DATA 80,80,A2,h2,40, 10, 22, A2, 03, 58 
DATA 90,80,B2,EA,30,E0,32,EA,04,D8 
DATA 90, 00, B2, EC, 30, EO, 31 , EA, 04, 59 
DATA 90, 00, Bî , FE, 30, EO, 73, EC, 04, AE 
DA TA F 4 , 88 , D3 , FF , FO , FO , F7 , FE , 07 , 23 
DATA AO , CC , 53 , FF , F8 , FO , FF , FE , 06 , A3 
DATA 20,44, 13, FF, F8, FO, FF, CE, 05, 2B 
DATA 60,44, 13,FF,F8,F0,FF,CE,05,6B 
DATA 40 , 66 , 37 , FF , F8 , FO , FF , EF , 05 , B2 
DATA CO , 22 , 37 , FF , FC , F 1 , FF , EF , 05 , F3 
DATA 80,33,37,FF,FC,F9,FF,EF,05,CC 
DATA 80, 11,7F,FF,FC,F9,FF,FE,06,01 
DATA 80, 1 1 , 7F, FF, F9, FC, FF, FE, 06, 01 
DATA 08 , 33 , 7F , FF , F3 , FE , F7 , FC , 05 , 90 
DATA 08,22, 7F, FF , F7, FF, F7, FD, 05, 92 
DATA 08, 66, 7F, FC, F7, FF, FI , FF, 05, CF 
DA TA 08 , 44 , 7C , CO , F3 , FE , 90 , F 1 , 04 , FA 
DATA 19,55, TE, 10, F7.FF, C0,73,04, 25 
DATA 19,FF,7F,B0,FF,FF,E8,F7,06,24 
DATA 08, EE, 4F, F9, 3F, CF, FC, 9F , 04, E7 
DATA 08, EE, OC, 6F, 13, OC, 3F, 09, 01 , D8 
DATA 08 , 44 , 00 , 06 , 01 , 00 , 03 , 00 , 00 , 56 
DATA 08,00, 18,20, 10,00,00,00,00,50 
DATA 70, 80, 00, 00,00, 00,00, 10,01,00 
DA TA 80 , 60 , 00 , 00 , 00 , 00 , 00, 20 ,01, 00 
DATA 00, 10,00,00,00,00,00, 10,00,20 
DATA 80 , 60 , 00 , 00 , 00 , 00 , 00 , 00 , 00, EO 
DATA 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00, 00 
DATA 07,08,00,00,00, 10,80,00,00,9F 
DATA OF, OC, 00, 60, 00, 31 , C8, 01 , 01 , 75 
DATA OF,OE,00,F6,00,70,E4,01,02,68 
DATA 78,86, 10, F8, 80, 70, F2, 01 , 03, E9 
DATA F4 , CA , 3 1 , FO , 80 , FO , F2 , ! , 05 , 42 
DATA FO , C2 , 3 1 , FO , 80, FO , F 1 , 80 , 05 , B4 
DATA F4, C8, 72, FO, CO, FI , FI , 80, 06, 40 
DATA F7, C8, 72, F2, CO, EO, F4, C8, 06, 7F 
DATA 73 , 80 , F4 , D8 , CO , E4 , 74 , C8 , 05 , 9F 
DATA 30, 00, F4, 98, C8, E4, 74, E4, 04, CO 
DATA OF, 1C,F8,9B,CB,C4,31,C3,04,3B 
DATA OF, OF, F2, 00, C8, C4, 1 1 , C3, 03, 70 
DATA OF , OF , E2 , 00 , CS , 80 , 1 1 , 97 , 02 , FO 
DATA 3C , 2F , 6A , 00 , 40 , 00 , 00 , 87 , 1 , 9C 
DATA BC , 4F , 48 , 00 , 00 , 00 , 00 , 07 , 1 , 5A 
DATA 78 , 87 , 08 , 00 , 00, 00 , 00 , 07 ,01, OE 
DATA 46,87, 08 , 00 , 00 , 00 , 00 , 27 , 1,01 
DATA 4F, 9F, 08, 00, Où, 00, Où, 17,01,00 
DATA 4F , AF , 08 , 00 , 00, 00 , 00 , 07 ,01, OD 
DATA 8F, 4F, 08, 00, 00, 00, 00, 07, 00, ED 
DATA OF , OF , 08 , 00 , 00 , 00 , 00 , 07 , 00 , 2D 
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00 , 00 ,11, 00 , FF , 88 , 00 , 00 ,01,98 
33,00,11,00, 00 ,44,00,00,00,88 
44 , FF , EE , 00 , 1 1 , 88 , 00 , 00 , 02 , CA 
22 , 00 , 00 , 00 , 22 , 00 , 00 , 00 ,00,44 
1 1 , 00 , 00 , 00 , 1 1 , FF , 00 , 00 ,01,21 
66 , 00 , 00 , 00 , 00 , 00 , FF , FF , 02, 64 
88,00,00, 00 , 00 , 00 , 00 , 00 , 00 , 88 
00, 00, 00, 00, 00, 00, 00, 00, 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00, 00 , 00 , 00 , 00 , 00 
00, 00, 00, 00 ,,00, 00, 00, 00, 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 ,18,20,10, 00 , 00 ,00,48 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 

oo , oo , oo , oo , oo , oo , oo , 03 , 00 , 03 
oa , 00 , 00 , 00 , 00 , 00 , 00 ,77,00,7F 

8D , 08 , 07 , 00 , 00 , 00 , 00 ,74,01,10 
BF, 8C, FF, 08,00, 00, 00, 3D, 02, 8F 
BF , CE , FF , 8C , 00 , 00 , 1 , 3F , 03 , 58 
FF , 3F , FF , 8C , 00 , 00 , 1 , 3B , 03 , 05 
EF, IF, FF, CE, 00, 00, 2 1,80, 03, 7C 
CF, OF, FF, CE, 00, 00, 70, 91 , 03, AC 
8B , 8F , FF , CE , 00 , 00 , 60 ,01,04,18 
9B,CF,FF, CE, 00, 00, 60, Dl , 04, 68 
FF , 9Ë , FF , EF , 00 , 00 , 60 , 40 , 04 , 2B 
EF , 3E , FF , EF , 00 , 00 , 60 , 40 , 03 , BB 
CF , 7E , FF , EF , 00, 00 , 60 , 40 , 03 , DB 
31 , FE, FF, EF, 00, 00,40, 00, 03, 5D 
32, FF, F7, FF, 08, 00, 00, 00, 03, 2F 
32, FF, F7, FF, 08, 00, 00, 00, 03, 2F 
1 1 , F7, FB, FF, 08, 00, 00, 00, 03, OA 
1 1 , FB , FD , FF , 8C , 00 , 00 , 00 , 03 , 94 
00 , FC , F6 , FF , BC , 00 , 00 , 00 , 03 , 7D 
00 , 76 , F8 , F7 , CE , 00 , 00 , 00 ,03,33 
00 , 32 , AS , 00 , EF , 00 , 00 , 00 , 1 , C9 
00,00,04, 00, 33, OC, 00, 00, 01 , 13 
00, 00, 90, 00, 00, 00, 00, 00, 00, 90 
00 , 00 , 40 , 80 , 00 , OO , 00 , 00 , 00 , CO 
00 , 00 , CO , CO , 00 , 00 , 00 , 00 ,01, 80 
00 , 1 , 90 , 80 , 00 , 00 , 00 , 00 ,01, 20 
00 , FE , 30 , 00 , 00 , 00 , 00 , 00 , 1 , 2E 
1 1 , CF , 69 , 00 , 00 , 00 , 00 , 00 ,01,49 
00 , BF , FF , 08 , 00 , 00 , 00 , 00 , 1 , C6 
00 , 33, BB, 00 , 00 , 00 , 1 8 , 20 ,01,26 
10,00, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 1 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 ,01, 08 , 07 , 00 , 00 , 00 , 1 
00 , 00 , 00 , 33 , 8C , FF , 08 , 00 , 1 , C6 
00 , 00 , 00 , 77 , CE , FF , 8C , 00 , 02 , DO 
00 , 00 , 00 , 77 , 3F , FF , 8C , 00 ,02,41 
00,00, 00, EF, IF, FF, CE, 00, 02, DB 
00 , 00 , 00 , CF , OF , FF , CE , 00 , 02 , AB 
00 , 00 , 00 , DF , 8F , FF , CE , 00 , 03 , 3B 
00 , 00 , 00 , 77 , CF , FF , CE , 00 , 03 , 1 3 
00 , 00 , 00 , FF , 9E , FF , EF , 00 , 03 , BB 
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299 


DATA 


300 
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00 , 00 , 1 1 , EF , 3E , FF , EF , 00 , 03 , 2C 
00 , 00 , 1 1 , CF , 7E , FF , EF , 00 , 03 , 4C 
00 , 00 , 33 , B9 , FE , FF , EF , 00 , 03 , D8 
00,00, 33, 32, FF, F7, FF, 08, 03, 62 
00, 00, 77, 32, FF, F7, FF, 08, 03, A6 
00, 00, 66, 1 1 , F7, FB, FF, 08, 03, 70 
00,00,66, 11,FB,FD,FF,8C,03,FA 
00, 01 , 6E, 00, FC, F6, FF, BC, 03, EC 
00 , 1 3 , AE , 00 , 76 , F8 , F7 , CE , 03 , F4 
00 , 77 , CE , 00 , 32 , AB , 00 , EF , 03 , OE 
00, 57, CE, 00, 00, D4, 00, 33, 02, 2C 
OC , 47 , CE , 00 , 00 , 90 , 00 , 00 , 1 , B 1 
00 , 33 , CC , 00 , Où , 40 , 80 , 00 , 1 , BF 
00, 23 , OC , 00 , 00 , CO , CO , 00 , 1 , AF 
00 ,01, 08 , 00 ,10, 90 , 80 , 00 ,01, 29 
00 ,01, 08 , 00 , FE , 30 , 00 , 00 ,01,37 
00, 01 , 08, 1 1 , CF, 69,00, 00, 01 , 52 
00, 00, 08, 00, BF, FF, 08, 00, 01, CE 
00, 00, 04, 00, 33, BB, 00, 00, 00, F2 
00 ,18,20,10, 00 , 00 , 00 , 00 ,00,48 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
1 , 00 , 80 , 00 , 00 , 00 , 00 , 00 , 00 , 90 
10, 80, CO, 00, 00, 00, 00, 00, 01 , 50 
20 ,10, 00 , 00 ,00,77,88, 00 ,01,2F 
73,20, 00, 00, 00, FF, CC, 00, 02, SE 
FF, C8,l 1,88,11, FF, FF, 11, 04, 80 
FF, 88, FF, CC, 33, FF, FF, BB, 06, 3E 
EE , 77 , FF , CC , 77 , FF , FF , 77 , 06 , 1 C 
DD,FF,FF,EE,6È,33,EE,FF,06,4F 
BB,FF,FF,EE,CC, 00 , EE , FF , 06 , 60 
77,FF,BB,EE,88,O0,55,EE,04,EA 
FF , CC , 1 1 , EE , 00 , 00 , 33 , EE , 03 , EB 
FF , 00 , 00 , FF , 00 , 00 , 1 1 , OE , 02 , 1 D 
DD, 00 , 00 , 77 , 00 , 00 , 1 , OF ,01, 64 
22, 00, 00, 77, 00, 00, 01 , 4F, 00, E9 
EE , 00 , 00 , 33 , 00 , 00 , 1>, CF ,01, F 1 
CC , 00 , 00 , 1 1 , 00 , 00 , 1 1 , CF , 1 , BD 
00 , 00 , 00 , 00 , 00 , 00 , 33 , SE , 00 , C 1 
00 , 00, 00 , 00 , 00 , 00 , 77 , 00 , 00 , 77 
00 , 00 , 00 , 00 , 00 , 1 1 , EE , 00 , 00 , FF 
00,00, 00 , 00 , 00 , 23 , CC , 00 , 00 , EF 
00,00, 00 , 00 , 00 , 03 , CC , 00 , 00 , CF 
00 , 00 , 00 , 00 , 00 , 33 , CC , 00 , 00 , FF 
00 , 00 , 00 , 00 , 00 , 1 3 , 88 , 00 , 00 , 9B 
00 , 00 , 00 , 00 , 00 , 03 , 00 , 00 , 00 , 03 
00 , 00 , 00 , 00 , 00, 03 , 00 , 00 , 00 , 03 
00 , 00 , 00 , 00 , 00 , 02 , 00 , 00 , 00 , 02 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 1 8 , 20 , 1 , 00 , 00 , 48 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 
03 , 08 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , OB 
77 , 8D , 08 , 07 , 00 , 00 , 00 ,00,01,13 
74 , BF , BC , FF , 08 , 00 , 00 , 00 , 02 , C6 
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356 
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357 


DATA 


358 


DATA 


359 


DATA 



3D , BF , CE , FF , BC , 00 , 00 ,01, 03 , 56 
3F , FF , 3F , FF , BC , 00 , 00 , 1 , 03 , 09 
3B.EF, IF, FF, CE, 00, 00, 01, 03, 17 
00 , CF , OF , FF , CE , 00 , 00 , 00 , 02 , AB 
1 1 , BB , BF , FF , CE , 00 , 00 , 00 , 02 , F8 
1 1 , 9B , CF , FF , CE , 00 , 00 , 00 , 03 , 4B 
1 1 , FF , 9E , FF , EF , 00 , 00 , 00 , 03 , 9C 
00 , EF , 3E , FF , EF , 00 , 00 , 00 , 03 , 1 B 
00 , CF , 7E , FF , EF , 00 , 00 , 00 , 03 , 3B 
00 , 3 1 , FE , FF , EF , 00 , 00 , 00 , 03 , 1 D 
00, 32, FF, F7, FF, 08, 00, 00, 03, 2F 
00 , 32 , FF , F7 , FF , 08 , 00 , 00 , 03 , 2F 
00 , 1 1 , F7 , FB , FF , 08 , 00 , 00 , 03 , OA 
00, 1 1 ,FB, FD, FF, BC, 00, 00, 03, 94 
00 , 00 , FC , F6 , FF , 8C , 00 , 00 , 03 , 70 
00 , 00 , 76 , F8 , F7 , CE , 00 , 00 , 03 , 33 
00, 00, 32, A8, 00, EF, 00, 00, 01 , C9 
00 , 00 , 00 , D4 , 00 , 33 , OC , 00 ,01,13 
00 , 00 , 00 , 90 , 00 , 00 , 00 , OC') , 00 , 90 
00 , 00 , 00 , 40 , 80 , 00 , 00 , 00 , 00 , CO 
00 , 00 , 00 , Lu , Cu , 00 , 00 , Ou , 1 , 80 
00 , 00 , 1 , 90 , 80 , 00 , 00 , 00 ,01, 20 
00 , 00 , FE , 30 , 00 , 00 , 00 , 00 , 1 , 2E 
00, 1 1 , CF, 69, 00, 00, 00, 00, 01 , 49 
00 , 00 , BF , FF , OB , 00 , 00 , 00 , 1 , C6 
00 , 00 , 33 , BB , 00 , 00 , 00 ,18,01, 06 
20 ,10, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 30 
00 , OC) , 00 , OC) , 00 , 00 , 1 , 08 , 00 , 09 
06, 00 , 00 , 00 , 00 , 00 , 03 , OD , 00 , 1 6 
OF , 00 , 00 , 00 , 00 , 00 , OB ,0F, 00 , 29 
OF , 00 , 00 , 00 , 00 ,01, OF , OF , 00, 2E 
OF , 00 , 00 , 00 , 00 ,01, OF , OF , 00 , 2E 
OE , 00 , 00 , 00 , 00 , 03 , OF , OF , 00 , 2F 
OC , 00 , 00 , 00 , 00 , 03 , OF , OF , 00 , 2D 
OF , 00 , 00 , 00 , 00 , 03 , OF , 07 , 00 , 28 
OF , 08 , 00 , OC , 03 ,01, OF , 02 , 00 , 38 
07, 08, 01 , OE, 07, 08, 06, 00, 00, 33 
OF , 00 , 1 , OE , 07 , 09 , OF , 00 , 00 , 3D 
OE , 00 , 05 , OF, OB , OE ,0F, OB ,00,52 
07 , 08 , OF , OF , OF , OF , 07 , 06 , 00, 58 
OF , OC , OF , OF ,0F, OF , OB , OF , 00 , 7 1 
OF , 08, OF , OF , OF , OF , OD , OF , 00 , 6F 
08, 08, 07, OF, OF, OF, OD, 01 , 00, 52 
7 , 00 ,07,0F, OF , OF , OC , OE ,00,55 
OF, OS, 03, OD, OF, OF, OD, OF, 00, 61 
OF , 08 , 07 , OE , OB , OF , OE , OF , 00 , 60 
OF , 08 , OF , OE , 1 , OF , OB , OF , 00 , 5E 
OF , 06 , OF , OE , 00 , 03 , OF ,0F, 00 , 53 
OF, OF, 07, OD, OC, 07, OF, OF, 00, 63 
OF , OF , 03 , OF , OE , OF ,0F, OF , 00 , 6B 
OF , OE , 07 , OF , OE , OF , OF , OF , 00 , 6E 
OF , OC , 07 , OF ,0F, OF , OF , OF , 00 , 6D 
OF , OE , 07 , OF , OF , OF , OF , OF , 00 , 6F 
OF, OF, 03,07, OF, OF, OF, OF, 00,64 
OF , OF , 00 , 07 ,0F, OE ,0F, OF ,00,60 
OF, OF, 00, 03, 07, OE, OF, OF, 00, 54 
OF , 06 , 00 , 00 , 03 , OC , 07 , 09 , 00 , 34 
OE , 00 , 00 , 00 ,01, 08 , 03 , 00 , 00 , 1 A 
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DATA OC 
DATA 18 
DATA 11 
DATA 00 
DATA 00 
DATA 76 
DATA 00 
DATA 00 
DATA 03 
DATA 00 
DATA 00 
DATA 56 
DATA 00 
DATA 00 
DATA 30 
DATA 00 
DATA 00 
DATA 03 
DATA OC 
DATA 00 
DATA 00 
DATA 00 
DATA 00 
DATA 88 
DATA 00 
DATA 00 
DATA EO 
DATA 00 
DATA 00 
DATA 78 
DATA 00 
DATA 21 
DATA 48 
DATA 00 
DATA DO 
DATA 00 
DATA 08 
DATA 10 
DATA 00 
DATA 00 
DATA OF 
DATA 00 
DATA 00 
DATA 70 
DATA 00 
DATA 00 
DATA 32 
DATA 00 
DATA 00 
DATA F7 
DATA 00 
DATA 00 
DATA 10 
DATA 00 
DATA 00 
DATA OF 
DATA 00 
DATA 00 
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00 
01 
15 
45 
65 
16 
7E 
FC 
A9 
ES 
49 
7C 
44 
36 
44 
12 
BO 
11 
09 
2D 
5C 
B9 
4B 
ES 
E6 

AF 
9F 

m 

DD 
46 
A2 
66 
2B 
8B 
84 
30 

BO 
24 
SB 
85 
9C 
01 
D2 
D3 
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44 
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BE 
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491 
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574 
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576 
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57S 


DATA 


579 


DATA 


580 
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581 


DATA 


582 


DATA 


583 


DATA 


584 
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585 


DATA 


586 
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587 


DATA 


5B8 


DATA 


589 


DATA 


590 
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591 


DATA 



OC, 00, 48, 32, 48, F0,C3, 01, 02, 82 

80,32,97,F8,Fi,9E,80, 11,04,61 
FO, FB, FI , FO, 00, 00, FD, 7E, 05, 44 
7E, CB, 00, 00, 23, FE, 7F, 08, 02, EE 
00 , 00 , 23 , FE , 7F , 08 , 00 , 00 , 1 , A8 
32, 7E,7E, 08,00, 00, 11,B4,01,FB 
A5, 00, 00, 00, 1 i,Fl,E9,00,02, 90 
00 , 1 >0 , 00 , F 8 , C2 , 00 , 00 , 00 , 1 , B A 
00,FA,C6,00,00,00,00,FB,02,BB 
CE , 00 , 00 , 00 , 00 , 75 , C8 , 00 , 02 , OB 
00, 00, 00, 32, 08, 00, 00, 00, 00, 3A 
00 , 32 , 08 , 00 , 00 , 00 , 00 , 32 , 00 , ou 
08 , 00 , 00 , 00 , 00 ,32,08, 00 , 00 , 42 
00,00, 00, 32, 08, 00, 00, 00, 00, 3 A 
00, 56, OC, 00, 00, 00,00, 9F ,01,01 
BE , 00 , 00 , 00 , 1 S , OC , 00 , 00 , 00 , 62 
00, 00,00, 00,00, OC', 00, 00, 00, 00 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 

00 , 00 , 00 , 00 , 00 , oo 1 , 00 , oo , oo , oo 

00,00, 00, 00, 00, 00, 00, 00, 00, 00 
00 , 00 , 00 , 00 , 00 ,11, CO , 00 , 00 , D 1 
00 , 00 , 00 , 30 , F9 , 00 , 00 , 00 ,01, 29 
00 , 74 , F9 , 80 , 00 , 00 , 00 , E2 , 02 , CF 
72,80, 00 , 00 , 00 , 48 , 30 , CO , 02 , 2A 
00, 00, 01 ,00,30, ce, 00, 00,O0,FD 
00, 00 , 33 , CO , 06 , 03 , 08 , 00 ,01, 04 
70, CO, 03, 70, CO, 32, F7, 80, 04, OC 
09,6F, DD, FI , FO, 88, OD, 2B, 03, Fs 
B8, F8,FC, 86,0F, OB, 78, F4,04, B8 
F2 ,01, 07 , 09 , F2 , 87 , 68 , OC , 02 , FO 
03, BO, El , 0F,00, 02, 10, FO, 02, AS 
61 , OC, 02, 00, 00, EO, 1 1 , OF, 01 , 6F 
OC , 00 , 00 , 00 , 00 , F F , B8 , 00 , 1,93 
00 , 00 , 00 , 00 , 00 , 00 , 00 , 08 , 00 , 08 
OC , 1 , OF , OE , 00 , 00 , 00 , 74 , 00 , 9E 
FO , C3 , 08 , 00 , 00, F8 , FO , F 1 , 04 , 94 
OF , OC , 00 , FB , OF , 7A , FO , 87 , 03 , 16 
00, 74, FO, IF, FO, El , OC, FS, 04, 58 
FO, C3, FB, FO, 86, FO, FO, El , 06, E2 
7C , FO , C3 , F8 , FO , FO , F8 , FO , 06 , EF 
E2 , 00 , 08 , OC , 00 ,0F, 08 , 00 ,01, OD 
00, 00, 74, FO, 87, 00, 65, 00, 02, 50 
FO, FO, FO, OC, 32, 08, FC, FO, 05, 02 
FO , 00 ,'00 , 00 , 33 , FF , EE , 00 ,03,1 
47, 00, 07, 08,00, 1 1 ,F0, OC, 01 , 63 
FO, B6, 23, 74, FO, C3, FB, C4, 05, 7C 
E9 , 33 , FO , CO ,00,10, OC , 00 , 02 , EB 
00 , 00 , 00 , 00 , 00 , 00 ,00,21, 00 , 2 1 
08 , 00 , 00 , 00 , 00, DE , OC , 00 , 00 , F2 
00 , 00 , 00 , EB , 86 , 00 , 00 , 10,01,81 
OE, 75,0F, 10,08, 23, 97, 67, 01 , CB 
B7,23,0C,75,4B,9F,0E,57,02,7A 
0E,76,AD,2D,A6,EB,86,33,03,A8 
4B.0F, 7D, D6, 2E, 00, D6, 4B, 02, FC 
1E,4B,CC,32,AF,AD,87, IF, 03, 69 
00, 75, D7, 5F, 1E, 5A, OC, 76, 02, A5 W 
EB,BE,A7,AF,B6,75,F5,D7,05,C6 
7F, F5,4C, 33, FA, 99, 19, FA, 04, 99 
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SQv 


DATA 


ce 


00 


FF 
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DATA 


10 


oc 


00 


00 ! 
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00 


00 


FO 


C3, 
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FO 


FO 
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00 , 
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CE 


00 


00 


37, 
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DATA 


00 


53 
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7F, 
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B7 


C2 


00 , 
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DATA 


SO 


00 


00 


20, 
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DATA 


03 


20 
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F8, 
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FO 


FO 


04 


00, 
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08 


06 


30 


96, 
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11 
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FO 


FO, 
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DATA 


FC 


E2 


FF 


F9, 
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DATA 


00 


66 


00 


08, 


606 


DATA 


OC 


03 


C3 


34, 


607 


DATA 


El 


F5 


FE 


F3, 


608 


DATA 


DD 


H 


99 


88, 


609 


DATA 


88 


H 


00 


00, 


610 


DATA 


00 


01 


OE 


00 , 


611 


DATA 


OF 


08 


00 


00, 


612 


DATA 


OE 


00 


11 


OF , 


613 


DATA 


23 


8F 


OF 


IF, 


614 


DATA 


OF 


IF 


OF 


08, 


615 


DATA 


8F 


oc 


57 


5F, 


616 


DATA 


47 


AF 


IF 


FF, 


617 


DATA 


EF 


OF 


6F 


OC , 


618 


DATA 


IF 


OE 


BF, 


4F, 


619 


DATA 


AF 


8F 


OF 


OF, 


620 


DATA 


OF 


OF 


ÛF 


4E, 


621 


DATA 


OF 


2E 


AF 


OF, 


622 


DATA 


57 


OF 


OF 


OF, 


623 


DATA 


OF 


OF 


OF 


OE, 


624 


DATA 


OF 


OE, 


6F 


AF, 


625 


DATA 


5F 


5F 


5F 


5F, 


626 


DATA 


AF 


AF 


AF 


EF, 


62 7 


DATA 


5F 


OE 


67 


IF, 


628 


DATA 


00 


00 


00 


00, 


629 


MEMORY ! 


«7FFF 





84,77,00,00,02 
03 , OC , 00 , 00 , 00 
00,00,00,30,01 
00,37,FC,B7,03 
FE, 7F, CE, 00, 03 
C A, 00, 00, 6 1,02 
00, 10,F0,F0,04 
B7,FC,04,00,02 
04,00,34,28,02 
70, 18, 37, EC, 03 
B3,DC,87,69,03 
70,E2,32,E6,05 
11, 88, 33, CC, 05 
08, 00, OE, 03, 00 
87,FO,E9,79,03 
FA,BB,99,DD,06 
DD, 11,00,88,03 
88,00, 18, OC, 01 
00, 00, 00, 8F, 00 
11,0F,0F,0C,00 
OF, IF, OF, 00, 00 
OF, 08, 23, 4F, 01 
23,AF,0F,0F,01 
4F, OF, 8F, OC, 02 
8F, OC, 57, 4F, 03 
57,BF,0F,0F,02 
0F,0F,0F,8E,01 
0F,4E,9F,0F,02 
9F,0F,0F,0F,01 
0F,0F,0F,2E,01 
0F,0E,AF,0F,01 
9F,0F,0F,0F,01 
OF,0F,0F,0F,01 
0F,0F,6F,AF,02 
9F, FF, 8F, IF, 05 
7F,CF,0F,6E,02 
00, 00,00,00,00 



F8 
2B 
E3 
D6 
50 
FB 
65 
57 
4E 
8F 

4C 
6E 
87 
DF 
F2 
85 
45 
9E 

6B 
69 
35 
4A 
55 
AD 
F6 
67 
47 
56 
5F 
07 
77 
B8 
48 
BE 
00 



VEUILLEZ PATI EN 



630 MODE 2: PRINT" 
TER SVP "iPRINT 

631 CHKO: L 1 = 10: ADD=!<A400: FOR I=S<A400 TO 
&MBF STEP 8:F0R Z=l TO 8:READ X*:FOKE 

ADD, VAL ( "8.." + X») : ADD=ADD+1 : CHK=CHK+VAL ( "?* 
"+X*):NEXT:READ A$,B*:IF CHKO (VAL ( "O+A 
$+B$)> THEN PRINT"ERREUR DANS LES DATAS 
LIGNE: " ;LI:END 

632 CHK=0:LI=LI+1:NEXT 

633 CHK=0:ADD=8<A100:FQR I=&fllOO TO 8<A1D7 
STEP 8: FOR Z=l TO 8:READ X$:POKE ADD, VA 

L("&"+X$) :ADD=ADD+l:CHK=CHK+VAL("!k ,, + X*): 
NEXT:READ A*,B*:IF CHKO (VAL <"V'+A*+B*> ) 
THEN PRI NT "ERREUR DANS LES DATAS LIGNE 
:";LI:END 

634 CHK=0:LI=LI+1:NEXT 

635 CHK=0:ADD=;iA300:F0R I=&A300 TO ?<A33F 
STEP 8:FQR Z=l TO 8:READ X*:POKE ADD, VA 

U"V+X«> :ADD=ADD+1:CHK=CHK+VAL("Ï<" + X*> : 
NEXTîREAD A*,B*:IF CHKO (VAL ("Ï!"+A*+B$) ) 
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THEN PRINT"ËRREUR DANS LES DATAS LIGNE 
:" ;LI:END 

636 CHK=0:LI=LI+1:NEXT 

637 CHK=0:ADD=8<8400:FQR M84O0 TO 8<8D1F 
STEP 8:F0R 2 = 1 TO 8:READ X$:FOKE ADD, VA 

L("&"+X») :ADD=ADD+l:CHK=CHK+VAL("!< ll + X*) : 
NEXT:READ A*,B*:IF CHKO <VA*L<"&"+A*+B*> ) 
THEN PRI NT "ERREUR DANS LES DATAS LIGNE 
:"(LI:END 

638 CHK=0:LI=LI+1:NEXT 

639 CHK=0:ADD=.?<9000:FQR I=!<9000 TO &985F 
STEP 8: FOR Z=l TO 8:READ X$:POKE ADD, VA 

L("S.:" + X$):ABD=,ADD+1:CHK=CHK+VAL<"S<" + X$): 
NEXT:READ A*,B*:IF CHKO (VAL ( "8<"+A*+B*> ) 
THEN PRI NT "ERREUR DANS LES DATAS LIGNE 
:" ;LI:END 

640 CHK=û:LÏ=LI+l:NEXT 

641 PRI NT "INSEREZ LA CASSETTE OU LA DISC 
KETTE VIERGE":CALL MB18:CALL &BB18 

642 SPEED WRITE 1 

643 SAVE " ULT I MAT 1 " , B , !<A 1 00 , &3CÙ 

644 SAVE" ULT IMAT2" , B, &9000, S<860 

645 SAVE" ULT IMAT3" , B, &8400, W20 

646 PRI NT "SAUVEGARDE TERMINEE"» 



10 ■********+*************************** 

20 ' # * 

30 ' * * 

40 '* PROGRAMMATION : BAUDOIN Y. * 

50 ' * * 

60 '* GRAPHISMES : ROUX Maxime * 

70 ' * * 

80 ' ************************************ 

90 IF HIMEM>&7FFF THEN MEMORY «!7FFF:LQAD 

"ULTIMAT1":L0AD"ULTIMAT2":LQAD"ULTIMAT3" 

: CLOSE IN 

100 ON BREAK GOSUB 1540: MODE 1:INK 0,3:1 

NK 1,15:INK 2,21: INK 3,0: BORDER 3: GOTO 1 

160 

110 ' 

120 'PROGRAMME PRINCIPAL 

130 ' 

140 DEFINT A-Z:DEFREAL T 

150 SC1=0:SC2=0:A=1:M0DE 1:CALL !<BB4E:RE 

STORE 600:B1=6:B2=6:VI1=10:VI2=10 

160 ' 

170 'AFFICHAGE DU TABLEAU 

180 ' 

190 SCREEN=?i80Û0:CALL &A302 

200 READ Z:IF ZO-1 THEN READ H,X,Y,W:CA 

LL &A40Û,Z,X,Y:CALL &A300, A, X, Y, H: POKE ( 

&9F2F+A*4) ,X:FOKE (!«9F30+A*4) , YîPOKE <&9 

F31+A*4),Z;POKE (&9F32+A+4) , H: A=A+1 ELS 

E 230 

210 POKE Ï(9F0F+A-1,W:IF W=0 THEN POKE 8(9 

FOF+A-1 , INT (RND*4) +1 : GOTO 200 

220 GOTO 200 






240 BOUCLE PRINCIPALE 

250 ' 

VIES : 10 BALLES là 

"jCHR*<&E3> ; " VIES : 10 BALLES :6 ":LOCAT 

E 7, I:PRINT USING"##" ; VI 1 ; : LOCATE 28, UP 

RINT USING"##";VI2 

270 CALL S.:A400,0,0, 1 : X=0: Y=l : CALL &A400, 

2,37,1:X2=37:Y"2=1 

280 IF INKEY <67K>-1 AND YOl AND FL1=0 

THEN CALL !<A4Û2, 0, X, Y-l , X, Y: Y=Y-1 

290 IF INKEY(3!<>-1 AND Y2<>1 AND FL2=0 

THEN CALL 4A402, 2, X2, Y2-1, X2, Y2: Y2=Y2~1 

300 IF INKEY (71)0-1 AND Y<>22 AND FL1=0 

THEN CALL &A402,0, X, Y+l , X , Y: Y=Y+1 
310 IF INKEY (5) O-l AND Y2022 AND FL2=0 

THEN CALL &A402, 2, X2, Y2+1 , X2, Y2: Y2=Y2+1 
320 IF INKEY (60)0-1 AND FL1=0 THEN CALL 

Î-A400 , , X , Y : CALL &A400 , 1 , X', Y : FL 1 = 1 
330 IF INKEY ( 12) O-l AND FL2=0 THEN CALL 

S-.A400, 2, X2, Y2:CALL S.A400, 3, X2, Y2: FL2=1 
340 IF INKEY (60! =-1 AND FL1=1 THEN CALL 
&A400, 1, X,Y:CALL &A400, 0, X, Y: FL1=0 
350 IF INKEY(12)=-1 AND FL2=1 THEN CALL 
&A400, 3, X2, Y2: CALL &A400, 2, X2, Y2: FL2=0 
360 TFL=0 

370 IF INKEY (69) O-l AND FL1 = 1 THEN IF T 
1>5 AND B1>0 THEN POKE &9F06, 2: POKE Sc9F0 
7 , Y+ 1 : CALL &A400 , 5 , 2 , Y+ 1 : POKE &9F00 , 1 : AD 
D=(Y+1)*40:PQKE &9F0A, < ADD-256*INT !ADD\2 
56) ) :POKE &9F0B, !<80+ADD\256: T1=0: B1=B1-1 
: LOCATE 18,1: PR I NT CHR* ( &30+B 1 ) ; 
380 IF INKEY (4) O-l AND FL2=1 THEN IF T2 
>5 AND B2>0 THEN POKE &9F0B, 37: POKE ?<9F0 
9,Y2+1:CALL &A400,6,37,Y2+1:PDKE &9F01,1 
:ADD=(Y2+1)*40:P0KE &9F0C, (ADD-256*INT (A 
DD\256) ) : POKE &9F0D, !<80+ADD\256: T2=0: B2= 
B2-1:L0CATE 39,1:PRINT CHR$ <8<30+B2) ; 
390 IF PEEK(8;9F00)=1 OR PEEK (&9F01 ) =1 TH 
EN CALL &A0Û0:TFL=1: GOTO 390 
400 IF TFL=0 THEN POKE S.9F06, 10: POKE &9F 
07,10:P0KE &9F0B, 10: POKE &9F09, 10 
410 IF TFL=1 THEN IF PEEK (&9F06) =37 THEN 

IF PEEK(&9F07)=Y2 OR PEEK (&9F07! =Y2+1 
R PEEK(&9F07)=Y2+2 THEN PRINT CHR*(7);: 
M2=l 

420 IF TFL=1 THEN IF PEEK (&9F08) =3 THEN 
IF PEEK(?<9F09)=Y OR PEEK (&9F09) =Y+1 OR P 
EEK(&9F09)=Y+2 THEN PRINT CHR*<7> ; : Ml=l 
430 IF Ml+M2=0 THEN T1=T1+1 : T2=T2+1 : TP= ( 
TP+DMOD 25: IF TF-1 THEN Bl= (Bl + 1 ) : B2= (B 
2+l):ELSE GOTO 280 ELSE GOTO 500 
440 IF Bl=7 THEN Bl=6 
450 IF BI-7 THEN B2=6 

460 LOCATE 39,1: PRINT CHR*(&30+B2) ; : LOCA 
TE 18, liPRINT CHR*(&30+B1);:GOTO 280 
470 ' 
480 'MORT D'UN DES JOUEURS 



490 

500 IF Ml = l THEN CALL &A400, 0+FL1 , X, Y: CA 
LL &BB4E:CALL &A400,7,X,Y 
510 IF M2=l THEN CALL !,;B84Ë: CALL !<A40ù,2 
+FL2,X2,Y2:CALL &BB4E:CALL f,:A400, 8, X2, Y2 
520 FOR ZZ=1 TO 1000: NEXT: VI 1=VI 1-M1 : VI2 
=VI2-M2: CALL S<A302: A=l : M1=0: M2=0: Bl=o: B2 
=6 : Y= 1 : Y2= 1 : Su 1 =0 : SC2=0 : CLS : FL 1 =0 : FL2=0 
530 IF VI1+VI2=0 THEN LOCATE 5,12:FRINT" 
VOUS VOUS ETES MUTUELLEMENT MASSACRES • " 
:GOTO 850 

540 IF VI 1=0 THEN LOCATE 1,3: PRINT" Jou 
eu.f- 1":PRINT:PRINT" Vous n'êtes plus de 
ce monde cruel ": PRINT: PRINT" et impito 
yable, ":PRINT: PRINT" vous auriez du vau 
s métier, les trous" : PRINT: PRINT" sont m 
auvais pour la santé. ":GOTO 850 
550 IF VI2=0 THEN LOCATE 1,3:PRINT ,! JOU 
EUR 2":PRINT:PRINT" Vous nous ave: quit 
te":PRINT:PRINT" Que le Z-80 aie votre 
ame":PRINT:PRINT" II ne -faut pas se deg 
uiser en passoire" :PRINT" cela peu prov- 
oquer des désagréments": GOTO 850 
560 GOTO 200 
570 ' 

580 'TABLEAUX 
590 ' 

600 DATA 4,3,3,1,0,25,2,16,1,0,12,3,27,1 
,0,4,3,24,5,0,12,3,5,6,0,9,3,15,7,0,4,3, 
8,14,0,25,2,17,15,0,12,3,27,19,0,9,3,9,2 
1,0,4,3,19,22,0,11,3,26,11,0,22,1,32,17, 
254,-1 

610 DATA 4,3,5,2,0,22,1,16,2,254,12,3,1! 
,4,0,25,2,28,4,0,23,1,10,7,0,23,1,13,7,0 
,4,3,24,8,0,10,3,34,7,0,4,3,29,11,0,27,3 
,15,10,0,9,3,8,12,0,12,3,32,15,0,10,3,22 
,18,0,27,3,26,20,0,11,3,12,20,0,24,2,5,2 
1,0,23,1,4,24,0,-1 

620 DATA 24,2,21,1,0,4,3,11,3,0,24,2,26, 
4,0,22, 1,5,7,254, 12,3, 14,9,0, 11,3,20,9,0 
,25,2,32,9,0,10,3,9,12,0,27.3,27,13,0,9, 
3,18,15,0,10,3,25,19,0,25,2,9,22,0,-1 
630 DATA 4,3,6,1,0,25,2,20,2,0,4,3,34,1, 
0,10,3,15,5,0,4,3,25,6,0,12,3,5,7,0,24,2 
,19,10,0,10,3,27,10,0,24,2,31,12,0,10,3, 
9, 13,0,25,2, 15, 15,0,4,3,3, 16,0, 10,3,23, 1 
9,0,4,3,32,20,0,-1 

640 DATA 25,2,3,2,0,12,3,28,1,0,24,2,20, 
3,0,12,3,10,6,0,9,3,13,7,0,11,3,32,6,0,2 
5,2,19,9,0,11,3,5,12,0,9,3,24,14,0,25,2, 
34,15,0,25,2,12,17,0,9,3,7,20,0,24,2,17, 
21,0,11,3,22,22,0,12,3,28,22,0,-1 
650 DATA 24,2,12,1,0,25,2,24,4,0,4,3,4,5 
,0,22,1,20,7,254,22,1,8,10,254,10,3,31,9 
,0,25,2,15,12,0,12,3,10,15,0,24,2,25,15, 
0,4,3,6,19,0,24,2,20,19,0,4,3,31,18,0,10 
,3,13,21,0,-1 
660 DATA 4,3,12,3,0,22,1,32,2,254,24,2,2 
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5,3,0,9,3,5,5,0,11,3,16,6,0,4,3,24,8,0, i 
0,3,30,9,0,22, 1, H, 11, 254, 25, 2, 17, 12, 0,2 
2, 1,22, 16,254,9,3, 10, 17,0,27,3, 17, 19,0, 1 
2,3,28,20,0,24,2,7,22,0,-1 
670 DATA 22,1,8,2,254,25,2,23,3,0,24,2,1 
4,4,0,25,2,5,6,0,27,3, 11,9,0,22, 1, 19,9,2 
54,12,3,27,8,0,4,3,3,13,0,9,3,25,15,0,22 
,1,33,18,254,12,3,10,19,0,25,2,23,22,0,1 
1,3,19,13,0,-1 

680 DATA 22,1,11,2,254,4,3,4,3,0,24,2,16 
,3,0,4,3,26,4,0,10,3,8,6,0,4,3,13,9,0,22 
, 1, 20, 9, 254, 11, 2, 17, 11, 0,24, 2, 27, 12, 0, 24 
,2,6,14,0,10,3,20,14,0,22,1, 13,15,254,4, 
3,10,19,0,4,3,33,18,0,24,2,20,20,0,22,1, 
5,23,254,-1 

690 DATA 22,1,22,1,254,22,1,4,2,254,23,1 
,27,3,0,27,3,11,4,0,23,1,19,5,0,23,1,20, 
6,0,23,1,12,7,0,23,1,6,10,0,22,1,9,11,25 
4,11,3,17,10,0,22,1,22,11,254,22,1,23,12 
,254,27,3,30,10,0,27,3,5,12,0,27,3,17,17 
73 1 77 1 7 77 3 37 17 ft 7^ 1 o 1 Q 7 

54 

700 DATA 23,1,16,20,0,23,1,17,21,0,22,1, 

S 74 7^4 7 = 7 1 7 7-T ,7 77 1 1 Q 7A f, 77 1 

28,24,254,-1 

710 DATA 24,2,31,1,0,22,1,33,4,254,24,2, 

11,4,0,22, 1,20,6,254, 10,3,12,8,0,24,2,26 

R (1 74 7 73 1 7? 1 O 17 7cr,4 77 * 77 

17,0,24,2,3,17,0,24,2,15,19,0,24,2,31,18 
74 7 711 77 n 77 1 li'j 74 7^4 _1 

720 DATA 4,3,9,1,0,24,2,14,1,0,10,3,23,1 
,0, 10,3,26, 1,0, 10,3, 16,5,0,4,3,31,5,0,24 
,2,10,6,0,4,3,33,6,0,24,2,19,7,0,24,2,12 
,8,0,24,2, 15,8,0,4,3,5,12,0,10,3,8,12,0, 
10,3,20, 12,0,24,2,26, 12,0,24,2,27, 14,0,4 
,3,5,16,0,4,3,7,17,0,24,2,11,17,0,24,2,1 
8, 18,0,4,3,33 
730 DATA 16,0,24,2,22,21,0,10,3,7,22,0,4 

3 1 Q '77 1 3 7ft 77-7 f i - 1 

740 DATA 10,3,16,2,0,22,1,10,4,254,24,2, 

33,5,0,27,3,24,5,0,10,3,6,8,0,9,3,13,9,0 

,22,1,29,13,254,24,2,5,17,0,27,3,18,17,0 

,9,3,22,22,0,10,3,29,22,0,24,2,10,23,0,- 

1 

750 DATA 25,2,22,1,0,4,3,18,2,0,4,3,28,4 

,0,4,3,8,5,0,12,3,13,5,0,4,3,17,10,0,22, 

1,8,12,254,22,1,28,15,254,4,3,4,16,0,25, 

2,14, 17,0,4,3,23,18,0, 12,3,10,22,0,12,3, 

29,22,0,-1 

760 DATA 11,3,5,1,0,24,2,23,2,0,25,2,15, 

4,0,24,2,9,5,0,11,3,27,5,0,4,3,20,9,0,11 

,3,9,11,0,4,3,29,14,0,25,2,21,14,0,4,3,1 

4,17,0,11,3,23,19,0,11,3,8,20,0,23,1,16, 

24,0,23,1,19,24,0,-1 

770 DATA 10,3,21,1,0,24,2,34,3,0,25,2,8, 

4,0,10,3,15,7,0,4,3,26,8,0,24,2,3,11,0,1 

0,3,31,12,0, 12,3,17,13,0,11,3,25, 15,0,4, 

3,11,16,0,9,3,32,18,0,10,3,7,19,0,24,2,1 
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5,20,0, 



,0,-1 



780 DATA 22,1,19,2,254,4,3,26,4,0,4,3,6, 

5,0,27,3, 10,6,0,10,3, 19,10,0,22,2,32,10, 

254,25,2,34,14,0,24,2,3,14,0,27,3,15,17, 

0,10,3,33,17,0,22,1,4,21,254,22,1,5,22,2 

54,22, 1,3,24,254,22, 1,25,22,254,-1 

790 DATA 25,2,22,1,0,11,3,18,2,0,4,3,28, 

4,0,4,3,8,5,0,12,3,13,5,0,4,3,17,10,0,22 

,1,8,12,254,22,1,28,15,254,24,2,4,16,0,2 

5,2,14,17,0,11,3,23,18,0,12,3,10,22,0,9, 

3 -79 7 7 - 1 

800 DATA 22,1,6,2,254,27,3,9,2,0,22,1,12 

,2,254,27,3,16,2,0,27,3,22,2,0,27,3,26,2 

,0,22,1,29,2,254,22,1,19,4,254,22,1,29,4 

7S4 777 3 9 S 77 7; 16 R n 7 7 7 77 =; r, 

27,3,26,5,0,22,1,29,7,254,27,3,7,13,0,27 

,3,14,13,0,22,1,10,13,254,27,3,21,13,0,2 

7,3,25,13,0 

810 DATA 22,1,28,13,254,22,1,17,14,254,2 

2,1,30,14,254,22,1,18, 15,254,27,3,7, 16,0 

,22,1,10,16,254,27,3,14,16,0,27,3,21,16, 

0,27,3,25,16,0,27,3,31,15,0,22,1,10,18,2 

54,22, 1,28,13,254,-1 

820 ' 

830 ANIMATION DE FIN DE PARTIE 

840 ' 

850 LOCATE 10, 15: PRINT"Les Vautours Sont 
Gates '^LOCATE 4, 17: PRINT" 1 1 Vont Avoir 

A Manger Au./jourd " Hui " : FOR Z = l TO 40:A$=I 

NKEY$; NEXT: CALL &BB1S 

860 MODE 1:CALL &A400, 4, 1 , 13: CALL &A400, 

10,29, 13 :CALL 8*400,21,24, 1 

870- FOR 1=0 T0 19 STEP 2:CALL ?<A400.26,I 

, 16:NEXT:FQR 1=24 T0 39 STEP 2:CALL &A40 

0,26, I,16:NEXT 

880 CALL ?<A400,21,4,3:CALL 84400,21 , 10, 4 

:CALL S<A400,21, 18,2 

890 CALL S,.A400,16,20,15:CALL 8<A400,21,34 

,5: CALL &A40Û,20,34,1:F0R ZZ=1 TD 1000: N 
EXT 

900 CALL &A400, 20,34, 1 

910 X=34:Y=1:CALL S-A400, 19, X , Y 

920 FOR 1=1 TO 12 

930 CALL &BD19:X=X-1: Y=Y+1:CALL &A402, 19 

,X,Y,X+1,Y-1:F0R Z2=l TO 99:NEXT:NEXT 

940 CALL SiA400,19,X,Y:CALL 8-.A400, 20, 21 , 1 

2: FOR 1=1 TO 3 

950 CALL !!BD19:F0R Z = l TO 12:NEXT:CALL & 

A400,20,21,12:IÎALL &A400, 18,21 , 12: FOR ZZ 

=1 TO 1200: NEXT 

960 CALL 8<BD19:FOR Z = l TO 12: NEXT: CALL & 

A400, 18,21, 12: CALL &A4Û0, 20, 21 , 12: FOR ZZ 

=1 TO 800: NEXT ZZ, ï 

970 CALL &A400,20,21, 12: X=21 : Y=12: CALL %. 

A400, 17,21, 12: FOR W=l TO 2 

980 FOR 1 = 1 TO 2:CALL !<BD19:F0R Z = l TO 1 

2 : NEXT : X=X-2: Y=Y- 1 : CALL &A402 , 1 7 , X , Y , X+2 

,Y+1:F0R ZZ=1 TO 150:NEXT:NEXT 






990 FOR 1=1 TO 2: CALL &BD19:F0R Z=l TO 1 
2: NEXT: X=X-2: Y=Y+1 : CALL ?,:A402, 17, X, Y , X+2 
,Y-1:F0R ZZ=1 TO 150: NEXT: NEXT 
1000 NEXT 

1010 FOR ZZ=1 TO 1500: NEXT 
1020 MODE 1 

1030 FOR 1=0 TU 34 STEP 2: CALL S(A400,26, 
I,17:NEXT:F0R 1=0 TO 39 STEP 2:CALL &A40 
0,26, 1,23: NEXT: CALL &A400, 21 , 1, 1:CALL !-A 
400, 21, 7, 2: CALL &A400, 21 , 12, 0: CALL tiMW 
,4, 11, 12: CALL &A400, 4, 13, 10: CALL Î<A400,4 
,15,8 

1040 CALL &A400,4,26, 12:CALL ?<A400,4,24, 
10:CALL 8iA400,4,22,8:CALL Î-A400, 21 , 25, 1 : 
CALL Ï-.A400, 21, 29,0: CALL &A400, 21 , 35, 2: FO 
R 1=0 TO 39 STEP 2: CALL !<A400 , 26 , 1 , 24 : NE 
XT:CALL 8<A400,24,4, 15:CALL ?,A400, 25, 22, 1 
5 : CALL S<A400 , 25 , 1 5 , 1 5 

1050 CALL &A400, 15, 18, 13:CALL &A400, 13,2 
9,13 

1060 DEFINT T:ENV 1 , 7, 2, 1 : RESTORE 1060:F 
OR 1=1 TO 11:READ A,B:SOUND 7,A*25,B*25, 
0, 1:S0UND 7,0,3,0:NEXT:DATA 20,4,20,3,20 
,1,20,4,17,3,18,1,18,3,20,1,20,3,21,1,20 
,4 

1070 CALL &A400, 14, 18,13: X=18:Y=13 
1080 FOR 1 = 1 TO 13: CALL !<BD19:F0R Z=l TO 
7: NE-XT: Y=Y-1 : CALL .?<A402, 14, X, Y, X, v + i : FO 
R ZZ=1 TO 150:NEXT:NEXT 

1090 X=29:Y=13:F0R 1 = 1 TD 7:CALL ?-:BD19:F 
OR Z=l TO 11:NEXT:X = X+1:CALL .'«A402, 13, X, 
Y,X-1,Y:F0R ZZ=1 TO 99:NEXT:NEXT 
1100 FOR 1=1 TO 6: CALL &ED19:FQR ZZ=1 TO 
12:NEXT:Y=Y+1:CALL 8<A402, 13, X, Y, X, Y-l : F 
OR ZZ=1 TO 99: NEXT: NEXT 

1110 FOR 1 = 1 TO 35:CALL S<BD19:F0R ZZ=1 T 
14:NEXT:X=X-1:CALL &A402, 13, X, Y, X+l , Y: 
FOR Z=l TO 99:NEXT:NEXT 
1120 CALL S-:BB18 
1130 

1140 'MENU 
1150 ' 

1160 MODE 1:CALL Ï<BB4E:CLS: PRINT CHR*<22 
!CHR*U):PLOT 1000, 1000, 3: TAB: MOVE 156,3 
80:PRINT"THE ULTIMATE FIGHT"; : TAGOFF:PEN 
1: LOCATE 1 1 , 2: PRINT"THE ULTIMATE FI6HT" 
;:PRINT CHR$ (22) CHR* (0) : LOCATE 9,6:PRINT 
"OPTIONS :" 

1170 CALL «<A40Û,0,4,20:CALL &A400,2,32,2 
: CALL &A400 , 1 1 , 1 8 , 1 9 : CALL &A400 , 22 , 1 9 , 2 
2:CALL S<A400,21,0, 3:CALL M400,21,31 ,3:C 
ALL &A400,20, 18,2 

1180 LOCATE 8,8:PRINT"1) MONITEUR COULEU 
R" 

1190 LOCATE 8,10:PRINT"2) MONITEUR MONOC 
HROME" 

1 200 LOCATE 8 , 1 2 : PR I NT " 3 ! I NSTRUCT I ONS " 
1210 LOCATE 8, 14:PRINT"4) JOUER" 



1220 LOCATE 8, 16: CALL MBB1:CALL &BB7B 
1230 A$="":WHILE A$=" " : A*=INKEY$; WEND 
1240 IF A$>"0" AND A$<"5" THEN A=VAL(A$> 
ELSE 1230 
1250 ON A GOTO 1260,1270,1280,140 
1260 INK 0,3: im. 1,15:INK 2,21:INK 3,0:B 
ORDER 3: GOTO 1220 

1270 INK 0,8: INK 1,18: INK 2, 26: INK 3,0:9 
ORDER 8:G0T0 1220 
1280 CLSrLOCATE 16, 4: PRINT"TOUCHES" : I OCA 

TE 16,5:PRINT" " 

1290 LOCATE 3, 7: PRINT" JOUEUR 1 

JOUEUR 2" 
1300 LOCATE 3, 8: PRINT" 

1310 LOCATE 8,9:PRINT"Q 
91. 

1320 LOCATE 8,10:PRINT"! 
1330 LOCATE 8, U:PRINT"i 
1340 LOCATE 8, 12: PRINT"! 

1350 LOCATE 8,14:PRINT" S A 

1360 LOCATE B,16:PRINT"i 
1370 LOCATE 8, 17:PRINT"! 
1380 LOCATE 8, 18: PRINT" I 
1390 LOCATE S,19:PRINT"Z 

1400 CALL !«BB18:CLS 

1410 PRINT: PRINT"LE BUT DU JEU EST DE TU 

ER VOTRE ENNEMI 

1420 PRINT: PRINT"EN LUI TIRANT 10 BALLES 
DESSUS 

1430 PEN 3:PRINT:PRINT"P0UR TIRER IL FAU 

T S'ACCROUPIR PUIS 

1440 PRINT: PRINT"PUIS APPUYER SUR LA TDU 
CHE DE TIR" 

1450 PEN 1: PRINT: PRINT'TES OBSTACLES DIS 
PARAISSENT APRES AVOIR 

1460 PRINT: PRINT"ETE TOUCHES UN NOMBRE A 
LEATOIRE DE FOIS 

1470 PRINT: PRINT" (SAUF POUR LES PIERRES 
PLATES QUI SONT 

1480 PRINT: PRINT" INDESTRUCTIBLES ) 

1490 PEN 3:PRINT:PRINT"IL FAUT UN CERTAI 

N TEMPS ENTRE DEUX TIRS 

1500 PRINT "POUR REARMER VOTRE PISTOLET 

1510 PRINT: PRINT"NE GASPILLEZ PAS INUTIL 

EMENT VOS BALLES 

1520 PRINT: PRINT"CAR LES SIX-COUPS SONT 

LENTS A RECHARGER"; 

1530 CALL ?y.BB18:G0T0 1160 

1540 RUN» 
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PROCHAINEMENT SUR VOS ECRANS... 



Amstrad, W ^C *, j , ./^ ^ Ou /joX^ 6 '!^ 



^i/o^itu^au 









^YCnoTEST. Lu ^r.faM -feu ^ ^Wà^c 55? 

lEPHi£lJQ- LUu -f-rrLuAJtrf- ûU lofriùcdi ch CajuHH, 
J3f>^'^/wu^ a^iio^aùa^t. .\//z^WcfpèrtWiauf! 



VOUS AVEZ 
REALISE 
DE BONS 
PROGRAMMES, 



CONTACTEZ-NOUS. 



DIFFUSION DANS TOUTE 
L'EUROPE, et OUTRE-MER 






? oug WQÉL ,y (y) S^MB^lK? T*i 



VOS REVUES ! 



CPC Revue standard Amstrad Schneider 

dossier classeur /ean, iogo et titre blanc 
Prix TTC : 74 F 

Abonnés : 51 F 




THEORIC, Revue des utilisateurs d'ORIC 

dossier classeur gris, logo titre rouge 
Prix ne : 80 F 

Abonnés : 59 F 



MEGAHERTZ Magazine 

dossier classeur noir, logo et titre doré 
Prix TTC : 78 F 



BON DE COMMANDE 



•X 



Nom Prénom 

Adresse 



CLASSEURS 



Abonnés 
Non Abonnés 
Abonnés 
Non Abonnés 
Abonnés 
Non Abonnés 



Total 



PRIX 



55,00 
78,00 
51,00 
74,00 
59,00 
80,00 



+PORT 1Q& à la commande 



VIDE V KHÔP 



251, bd Raspail, 75014 Paris. M'Raspall. Tel : 321.54.45 
50, rue de Richelieu, 75001 PARIS. Tel :296.93.95 
Métro Palais-Royal. Ou lundi au samedi de 9h30 à 19h. 



l'espace le plus 
micro de Paris ! 




BON DE COMMANDE à adresser à VIDEOSHOP, 50, rue de Richelieu, 75001 PARIS 



NOM : Je règle par 

D Chèque Bancaire 

PRENOM:... 

ADRESSE : 

VILLE : 

CODE POSTAL : 



DEMANDE DE DOCUMENTATION 
Je possède un micro de type 



Désignation des articles demandés 



Frais de port gratuit 

Tf-ïTAI ttp F 




POURQUOI 

CHOISIR TURBO PASCAL 

Yves GERAULT et Stéphane CLOIREC 

(SUITE) 



Maintenant que nous savons de quoi 
nous parlons, regardons de plus près le 
fonctionnement de ces types de langa- 
ges. 

LANGAGE INTERPRETE 

En mémoire vive, nous avons : 

• ,1e système d'exploitation, 

• le langage d'application, 

• le texte écrit, appelé le source. 
L'ordinateur va se réserver' une petite 
place en mémoire vive et, à l'aide du tra- 
ducteur, il va convertir en binaire la pre- 
mière ligne d'instruction. 

Deux cas peuvent se produire : 

• L'ordinateur détecte une erreur de 
syntaxe, 

- il détermine le code de l'erreur, 

- il affiche ce code ainsi qu'un message, 

- il interrompt sa traduction et repasse la 
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main à l'éditeur de texte. 
• L'ordinateur ne détecte aucune erreur 
de syntaxe, 

- il exécute les ordres binaires traduits et 
s'il ne trouve aucune erreur de syntaxe 
dans cette exécution, il repasse la main 
au traducteur pour traduire la ligne sui- 
vante et ainsi de suite. 



Les avantages de ce type de traducteur 
sont évidents : 

• La détection des erreurs est immédiate 
et la correction de celles-ci peut aussi- 
tôt se faire. Il s'agit donc d'un langage 
très interactif, on ' suit facilement le 
déroulement du programme. 

Les inconvénients apparaissent aussi évi- 
demment : 

• Il y a appe! au traducteur avant cha- 



que exécution d'une ligne d'où une perte 
de temps assez importante. 

• Dans le cas de boucle, les lignes com- 
prises dans celle-ci sont traduites autant 
de fois que le programme repassera sur 
ces lignes, ce qui occasionne une répé- 
tition d'un travail qui a déjà été effectué, 
mais comme il ne garde en mémoire que 
la traduction de la ligne en cours, il est 
obligé de refaire le travail à chaque fois. 

• Il est impossible, lors d'une mise au 
point d'un programme, d'être sûr qu'on 
a considéré tous les cas de figures lors 
des essais. Il peut arriver qu'une partie 
entière du programme n'ait jamais été 
exécutée lors des essais et qu'il y traîne 
une erreur de syntaxe qui, bien sûr, res- 
surgira le jour où le programme viendra 
parcourir cette partie, quelquefois, quel- 
ques années après. Il faudra alors se 



replonger dans les subtilités du pro- 
gramme pour corriger cette erreur, d'où 
perte de temps. 

• L'exécution du programme nécessitera 
la présence obligatoire en mémoire vive 
du langage d'application, ce programme 
ne sera pas autonome. 

■ Il devra toujours y avoir en mémoire 
vive la totalité du langage source. En 
effet, il est impensable d'ajouter à la len 
teur de la traduction simultanée celle de 
la lecture de la ligne source sur une 
mémoire morte. 

En définitive, les langages interprétés 
sont des langages faciles à utiliser, 
disons confortables, mais ils sont lents. 

LES LANGAGES COMPILES 

Le principe de l'utilisation du traducteur 
est fondamentalement différent. 
Dans un premier temps, on créera, à 
l'aide d'un éditeur de texte, un fichier 
source. 

Dans un deuxième temps, on fera appel 
au traducteur pour transformer notre 
texte source en un fichier binaire com- 
préhensible par notre ordinateur. 
Jusque là, pas de grande différence. 
Celle-ci intervient dans le fait que l'exé- 
cution ne se fait pas ligne par ligne. Elle 
ne pourra être lancée qu'après la traduc- 
tion totale de toutes les lignes de pro- 
gramme et, bien sûr, dans le cas où 
aucune erreur de syntaxe n'a été détec- 
tée. 

Les inconvénients de ce type de langage 
apparaissent tout de suite. 

• Il n'est pas possible d'essayer le pro- 
gramme ligne par ligne. Il faudra traduire 
l'ensemble du programme pour en lan- 
cer l'exécution et alors, et alors seule- 
ment, nous pourrons le lancer et détec- 
ter les erreurs de fonctionnement. Il nous 
faudra revenir dans l'éditeur, faire les 
corrections, et de nouveau relancer la 
traduction, puis l'exécution. On n'a pas 
la souplesse du langage interprété car la 
traduction de l'ensemble du programme 
peut demander beaucoup de temps. 

Les avantages d'un tel langage sont 
cependant multiples : 

• L'appel au traducteur se fait une fois 
pour toutes, dans la mesure, bien sûr, où 
il n'y a plus d'erreur. Lors du lancement 
de l'exécution, nous n'en aurons plus 
besoin, nous exécuterons uniquement le 
fichier binaire fourni par lui que nous 
appelerons PROGRAMME OBJET OU 
EXECUTABLE. Nous allons gagner beau- 
coup de temps à l'exécution. 

• Puisque l'appel au traducteur ne se fait 
qu'une fois, nous pouvons nous permet- 
tre que celle-ci soit assez longue mais 
très performante. 

■ Nous pourrons donc disposer d'un 
code objet plus travaillé et donc plus 
rapide. 

• Nous pourrons aussi, si nécessaire, tra- 
vailler avec des programmes plus encom- 
brants, en effet rien ne nous oblige à gar- 
der la totalité du texte source en 
mémoire vive, seule la présence de la 
ligne en cours de traduction est néces- 



saire. L'éditeur de texte ne nous servant 
plus à rien, nous pouvons l'effacer et 
récupérer cette place pour autre chose. 
Il n'est pas non plus indispensable de 
garder le fichier exécutable en mémoire 
.vive ; au fur et à mesure de sa traduc- 
tion, nous pouvons le sauver sur une 
mémoire morte. 

* Le fichier objet obtenu est "exécuta- 
ble", c'est-à-dire qu'il ne nécessite plus 
la présence de son langage pour s'exé- 
cuter, il devient autonome. Il reste 
cependant assujetti au système d'exploi- 
tation, mais ce sera la seule contrainte. 

• Toutes les parties du programme 
auront été testées du moins quant à leur 
syntaxe ; il n'y aura plus à y revenir ulté- 
rieurement. 

En définitive, les langages compilés sont 
lourds à l'emploi mais très performants 
du point de vue vitesse et permettent de 
concevoir des programmes plus impor- 
tants, toutes choses étant égales par ail- 
leurs (pour prévenir d'avance les objec- 
tions que pourraient soulever les incon- 
ditionnels du Basic Locomotive). 
Maintenant que nous avons tous les cri- 
tères en main, passons en revue les dif- 
férents langages qui sont mis à notre dis- 
position sur nos machines. 

LE LANGAGE ASSEMBLEUR 

A tout seigneur, tout honneur. Il y a très 
peu de différences entre le langage 
assembleur et le langage binaire. Il s'agit 
uniquement de rendre le langage binaire 
plus accessible en laissant aux bons 
soins d'un traducteur assez élémentaire 
le travail fastidieux, pour ne se consacrer 
qu'à l'algorithmique. 
Pour bien comprendre, il suffit de rappe- 
ler qu'un animal à quatre pattes qui fait 
"miaou" peut être appelé un "chat", un 
"minet", un "cat", un "Katze". Ce ne 
sont que diverses associations de lettres 
qui désignent la même chose. Pour notre 
ordinateur, ce sera la même chose. Il sera 
plus facile de retenir "LD, B,C" pour 
copier le contenu du registre C dans ie 
registre Bque "01000001". On utilisera 
des mnémoniques, ceux-ci dépendront 
bien sûr du type d'assembleur que nous 
utiliserons (ZEN, DEVPAC, MASM, etc.). 
Ce langage s'occupera aussi de l'implan- 
tation en mémoire du programme objet 
et des variables utilisées et de quelques 
autres facilités évidemment très intéres 
santés lorsqu'il faut utiliser ce moyen de 
programmation. 

Il faut cependant ne pas oublier qu'un 
langage assembleur ne possède aucune 
autre primitive que celle du microproces- 
seur. Il s'agit d'une traduction mot-à- 
mot, avec quelques calculs simples en 
plus. Comme illustration, pour faire une 
multiplication, il faut presque écrire une 
page de texte. Par contre, et c'est là sa 
force, ce langage permet d'utiliser tou- 
tes les possibilités de la machine. L'in- 
tégralité de la machine vous est acces- 
sible et vous travaillez avec ie maximum 
de la vitesse que vous autorise le micro- 
processeur, mais à quel prix ? Celui d'une 
très grande complexité de programma- 



tion. De plus, il est nécessaire de réécrire 
ce que d'autres ont déjà fait et souvent 
beaucoup mieux que vous. 
Il convient de n'utiliser le langage binaire 
directement ou sous sa forme langage 
d'assemblage que lorsque vous ne pour- 
rez faire autrement, pour des raisons 
de vitesse d'exécution {protocole 
d'entrée-sortie avec des périphériques où 
le timing est très serré, par exemple), ou 
pour créer une nouvelle primitive indis- 
pensable à votre application qui n'existe 
pas dans le langage que vous utilisez ; 
enfin pour vous faire plaisir. 
Pour des raisons évidentes de rapidité, 
tous les assembleurs sont des langages 
compilés. Ils ne délivrent par contre 
aucun message d'erreur de fonctionne- 
ment, vous obtenez ce qu'on appelle un 
"plantage", il ne vous reste plus qu'à 
éteindre et à rallumer votre machine. 

LE LANGAGE BASIC 

Ce langage est à l'opposé du langage 
assembleur. Les informaticiens qui l'ont 
écrit ont voulu mettre à la disposition des 
usagers un langage : 

• simple d'emploi, le plus proche possi- 
ble du langage naturel (américain quand 
même), 

• où tout est sacrifié à cette nécessité 
de simplicité de premier contact. La règle 
étant que tout ce qui peut être pris par 
défaut doit l'être pour que les difficultés 
de l'informatique soient le moins possi- 
ble perçues par l'utilisateur. 

• qui permette d'accéder avec le mini- 
mum d'effort au maximum de possibili- 
tés de la machine sur lequel il est 
implanté. 

Il en résulte que ce langage est un lan- 
gage interprété et qu'il est assez lent. De 
plus, c'est évidemment l'inconvénient 
de ses avantages, il devient d'une com- 
plexité presque insurmontable lorsque les 
programmes s'allongent. 

• Comment voulez-vous vous rappeler 
six mois après, lorsque vous reprenez un 
programme pour le modifier, du rôle de 
chacune des variables que vous avez uti- 
lisées ? 

• Les "GOTO xxxx" ou les "GOSUB 
xxxx" où xxxx indique une valeur numé- 
rique désignant un numéro de ligne et 
rendent le programme difficilement modi- 
fiable. Cette facilité offerte de prime 
abord semble offrir le mérite de la sim- 
plicité, il s'avère qu'elle devient très rapi- 
dement un obstacle très gênant. 

• Les "SUBROUTINE", ou en français, 
les sous-programmes, sont simples 
d'emploi certes, mais leur simplisme 
devient vite un obstacle à une utilisation 
rationnelle de ceux-ci. Il serait nécessaire 
qu'ils soient totalement indépendants du 
programme principal. Le basic manque 
de modularité (division d'un ensemble en 
nombreuses petites parties autonomes). 

• Ce langage n'est pas extensible. Il est 
très difficile de créer de nouvelles primi- 
tives. Il faut faire appel au RSX ou au 
binaire, c'est assez lourd d'emploi. 

• Afin de rendre le maximum de choses 
transparentes à l'utilisateur, le Basic 
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n'optimise pas l'occupation mémoire des 
variables, il en résulte une perte de place 
assez importante. 

En conclusion, le Basic est un très bon 
langage d'initiation à l'informatique, mais 
il ne faut pas oublier qge beaucoup de 
choses sont prises par défaut et .que 
cette apparente simplicité cache de mul- 
tiples problèmes sous-jacents. 

LE LANGAGE PASCAL 
TURBO DE BORLAND 

Comme vous vous en doutez un peu, il 
doit présenter un grand nombre d'avan- 
tages puisque c'est pour mieux les met- 
tre en évidence que ce long préambule 
a été écrit. 

Ce langage, comme tous les autres, se 
compose d'un éditeur de texte, d'un tra- 
ducteur du genre langage compilé et 
d'un lanceur d'exécution. Il fonctionne 
sous les systèmes d'exploitation CP/M 
2.2 ou CP/M Plus et bien sur pas sous 
AMSDOS. 

Tout d'abord, son éditeur est du type 
pleine page et non pas du type ligne 
comme l'éditeur du Basic, c'est quand 
même plus souple d'emploi. Le code 
source obtenu est du type ASCII, le 
même que celui que vous obtenez avec 
l'option ",A" lors du SAVE du Basic, il 
y a donc possibilité d'écrire vos textes 
Basic avec cet éditeur et ensuite de les 
lancer sous AMSDOS. Ce n'est pas sa 
vocation première mais qui peut le plus 
peut aussi le moins. Il utilise des carac- 
tères de contrôle qui sont redéfinissa- 
bles, vous pourrez donc adapter ceux-ci 
à vos habitudes, de base, il essaie d'être 
le plus près possible de Wordstar. 
Son compilateur présente la particularité 
d'une très grande rapidité {100 lignes à 
la seconde). Et là, il devient génial, 
lorsqu'il détecte une erreur, il rentre auto- 
matiquement dans son éditeur de texte 
et se piace sur l'erreur de syntaxe trou- 
vée. Vous avez donc un langage compilé 



qui présente aussi tous les avantages du 
langage interprété. 

Il est modulaire de par essence même. 
Un programme Pascal, c'est une suite de 
■petits outils que nous forgerons lente- 
ment et que nous utilisons quand nous 
en avons besoin. Chaque petit module 
peut être totalement indépendant des 
autres. Ce qui fait que sa mise au point 
est très commode et les modifications 
ultérieures très simples puisque c'est 
vous et vous seul qui décidez ce que 
vous voulez qui soit commun aux divers 
modules. Un programme peut donc ainsi 
être écrit par une équipe, chacun travail- 
lant dans son coin, il suffit simplement 
de s'entendre sur les entrées et les sor- 
ties de chaque module, qui plus est, le 
nom des variables utilisées peut n'avoir 
aucune importance. Ces petits modules 
deviennent très polyvalents. Pour se ser- 
vir de ces modules, il suffit de les appe- 
ler par leur nom, ils sont devenus des pri- 
mitives du langage. 
Pascal est donc modulaire, extensif et 
chaque petit module peut être rendu 
totalement indépendant. Pascal présente 
tous les avantages d'un langage inter- 
prété et tous les avantages d'un langage 
compilé. 

Est-ce tout ? Non ! 

Pascal présente aussi tous les avantages 
du langage assembleur. Lorsque vous 
désirez passer en assembleur, vous le 
signalez par un "INLINE; BEGIN" et vous 
écrivez en hexadécimal quand vous dési- 
rez reprendre Pascal, vous le signalez au 
compilateur par un "END". Le problème 
du passage des paramètres si complexe 
en Basic est ici transparent. 
Puisque vous avez à votre disposition 
toute la puissance de l'assembleur, rien 
ne vous empêche d'utiliser, en plus, la 
bibliothèque du Basic qui est en ROM. 
Ceci est vraiment un plus en faveur de 
Pascal Turbo. 

Autre avantage : Pascal Turbo est aussi 
implanté sur tous les appareils compati- 
bles IBM PC et pratiquement sur tout 



appareil fonctionnant sous CP/M et 
MSDOS. Ce qui veut dire en clair qu'un 
programme écrit en Pascal Turbo sur votre 
AMSTRAD tournera sans aucune modi- 
fication sur n'importe quel ordinateur 
fonctionnant sous ces systèmes. Aucun 
autre langage n'a cette portabilité. A une 
époque où il est fortement question 
qu' AMSTRAD sorte un compatible 
IBM PC n'est ce pas tentant ? 
Pascal Turbo permet aussi de beaucoup 
mieux gérer les fichiers. Il permet d'en 
ouvrir 5 en même temps en lecture et en 
écriture ; on est loin des faibles possibi- 
lités de Basic en la matière. 
Quel effort va-t-il vous demander ? Le 
même que celui qui serait nécessaire 
pour passer de la conduite d'une voiture 
automatique {Basic) à celle d'une voiture 
à boîte de vitesse classique (Pascal). 
Hors de question de passer à la série 
grand tourisme (Assembleur) et encore 
moins à la formule 1 (Binaire). 
Alors, pourquoi ne pas vous laisser 
séduire et nous rejoindre dans le club de 
plus en plus fréquenté des utilisateurs du 
Pascal ? Il n'est pas inutile de signaler 
que Pascal Turbo est de plus en plus 
employé dans l'enseignement supérieur 
comme langage d'initiation à l'informa- 
tique* 

Prochain article : L'éditeur de texte de 
Turbo Pascal. 
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1 , rue du Plat 

59800 LILLE 
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LE SPECIALISTE 
AMSTRAD à NANTES 

464-6128-8256 

périphériques 

+ de 100 logiciels 

disquettes, cassettes 

semi-pro ou particuliers 

9, rue Urvoy de St. Bedan 
44000 NANTES 
Tél.: 40.69.03.58 
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Spécialiste Amstrad. 
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Exceptionnel pour Noël 

du 20 Nov. 86 au 31 Dec. 86 



UN BEAU CADEAU DE NOËL 

pour votre CPC464 - CPC664 - CPC6128 

Toutes les Télécommunications 
avec le CPC2 

. Emulation MINITEL (Télétel 1 , 2, 3) 

. Emulation PRESTEL (serveur anglais) 

. Emulation TERMINAL (TRANSPAC, ORDINATEUR) 

. Transfert de PROGRAMMES (ou fichiers) 

. 30 instructions BASIC RSX pour programmer 

votre propre serveur 
. MODEM universel avec toutes les caractéristiques 

V21.V23, Bell 202, Bell 103 

EN ROM 
Incroyable le tout 2290"° 



MER. G.I. 

Rue Ampère 

Zl INGRE 

45140 ST JEAN DE LA RUELLE 

Tél. : 38 72 22 83 - 38 43 11 83 
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COMPOSITION SUR AMSTRAD + KX-P 1080 
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i !! iransrere iuu% des logiciels ! 

MULTIFACE 2 est le seul appareil capable de stopper TOUS les logiciels à n'importe quelle adresse, vous 
mettant d'en faire EFFICACEMENT et AUTOMATIQUEMENT une copie de sauvegarde sur disquette ou cas 
sette !!! > 

MULTIFACE 2 est une interface, c'est-à-dire qu'elle ne prend aucune place en RAM et n'a donc pas /*i, 

besoin d'être chargée ; un simple appui sur le bouton rouge /iti' 
illlH " suffit. /My" 

MULTIFACE 2 est géré par des menus, rendant /&8^ 

son utilisation particulièrement simple. /" '•••■•' 

MULTIFACE 2 vous offre un puissant MONITEUR 
vous permettant, en utilisant une fenêtre, de »/• 

dumper la mémoire (ASCII, HEXA et 

DECIMAL), de la modifier à volonté (idéal / 

pour vos vies infinies etc.), de sauter à y 

n'importe quelle adresse et de ^^r' 

visualiser les registres du Z80 ; 

et ceci MEME pendant le 

déroulement du programme!! -, 

MULTIFACE 2 est un /^ 

produit professionnel ■* 

1 de toute 1ère classe, 4 

possédant 8 kO « 

de ROM et 8 
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Filtres d'écran amovibles, 

%\jr à fixer par Vêlera au cadre 

du moniteur diminuant les 

^\p reflets désagréables et fatigants. 



kO de RAM. 
Equipe d'un bus d'extension, MULTIFACE 2 
permet de raccorder d'autres périphériques. 
Un système de compression est utilisé pour 
le rechargement rapide et une prise >5 

minimale de place sur disouette ou ^.v^ 
cassette. Par exempl 
de 64 kO sont recha 
secondes environ à 
d'une disquet 



supprimant, la 
brillance de l'écran, 
permet de longues 
heures d'utilisation de 
votre ordinateur sans fatigue 
oculaire. 
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Simulation d'une expédition à bord d'un sous-marin U 79. 

Vous êtes ASPIRANT embarqué avec un équipage de 35 

hommes et vous pourrez devenir AMIRAL. Pour cela, il 

vous faudra manœuvrer à la perfection car dans ce jeu, 

toutes les phases du pilotage d'un sous-marin sont à 

respecter. 

Vous serez le maître des combats assisté par les 

instruments de bord (sonar, radio, radar). 

Vous aurez à détruire la flotte ennemie sur différentes 

cartes marines. 

Le "hit" des logiciels de fin d'ann ée à se procui 

absolument ! 



Disponible sur : 
AMSTRAD disquette 3" 
THOMSON 

MQ5/MO6/TO7.70/TOB/TO9/TO9 + 
Disquettes 3"1/2, 5"1M 
Cassette 




BLUE WAR 

TE LOGICIEL DU MOIS SUR AMSTAR DE NOVEMBRE 
LA PRESSE UNANIME: 

...C'est certainement la meilleure réalisation du genre 
sur amstrad... 
(CPC Novembre 86) 

...Les écrans, en motte 0, sont très colorés et ont 
réellement beaucoup d'atture... 
(AMSTRAD MAGAZINE Novembre 86) 

...Cette simulation est exeptionnelleJamais avant aujourd'hui 
je n'ai vu un tel souci de détail et de finition... 
(AMSTAR Novembre 86) 

...C'est une simulation de sous-marin. Une bonne même... 
Les mots me manquent pour vous décrire ce jeu... 
{HEB00GICIEL Octobre 861 

...C'est en résumé une simulation réussie ou l'intérêt 
reste élevé très longtemps... 
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VTUNK : 

LE PCW COMMUNIQUE 



Denis BONOMO 



1 



nterface bien conçue, servie par un logiciel intelligent, VTLINK 
confère au Minitel la puissance indispensable à son utilisation 
professionnelle : celle de l'ordinateur. 





Le PCW va utiliser le modem du Minitel 
pour communiquer et ses vastes possi- 
bilités internes pour traiter les informa 
tions. Au moyen de VTLINK. l'utilisateur 
pourra se connecter sur Télétel, transfé- 
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rer ou échanger des fichiers... surtout 
faire des économies qui amortiront rapi- 
dement le coût de l'interface s'il fait de 
nombreuses consultations. 
Ces consultations peuvent être automa- 



tisées en tout ou partie, au moyen d'un 
fichier de commande spécialisé. Vous 
avez l'habitude de consulter les cours de 
la bourse ? Rien de plus facile ! Dès les 
premières consultations, vous allez créer 
un fichier de commandes qui décrira à 
l'ordinateur, la suite d'opérations à effec- 
tuer. Les accès futurs seront considéra- 
blement simplifiés. L'écran peut égale 
ment afficher un chronomètre et un indi- 
cateur de "remplissage mémoire". 
Pour une messagerie électronique, il est 
possible de préparer le texte à émettre 
et, après s'être assuré de la disponibilité 
de la messagerie, de déclencher son 
expédition. Un éditeur de fichier (utilisé 
pour les commandes) pourra vous aider 
lors de la composition de messages 
courts. 

L'échange de fichiers à distance a été 
prévu : vous allez désormais pouvoir 
profiter du travail accompli par un ami, 
éloigné géographiquement. Attention, le 
modem du Minitel impose certaines res- 
trictions clairement exposées dans la 
notice VTLINK". Ainsi, les fichiers texte 
pourront être transmis mais... sans let- 
tres accentuées. Les fichiers .BIN ou 
.COM sont exclus car ils peuvent con- 
tenir certains codes actifs pour le modem 
du Minitel. 

L'émission-réception de fichiers textes 
peut être entièrement automatisée. 
Bien entendu, une sortie sur imprimante 
permet de conserver une trace écrite des 
écrans qui vous intéressent, avec quel- 
ques limitations néanmoins, sur les gra- 
phismes Vidéotex. 

Le manuel utilisateur de VTLINK com- 
porte 35 pages qui détaillent clairement 
le mode d'emploi du produit. 
VTLINK a été conçu par COSTERCO. 
Peu encombrant, le boîtier de 
1 1 x 60 x 30 mm se connecte à l'arrière 
du PCW. Le cable établissant la liaison 
au Minitel est fourni. Sa longueur, d'en- 
viron 2 m, nous a paru bien suffisante. 
Avec un coût de 1200 F HT, VTLINK 
apporte un confort non négligeable à 
tous ceux qui utilisent fréquemment leur 
Minitel pour des applications 
professionnelles. 

VTLINK est commercialisé par LOISI- 
TECH, annonceur dans CPC. Pour plus 
de renseignements et un meilleur accueil, 
se recommander de CPC au (1) 
48.59.72.76. 
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CTEUR5"1/4 

pour AMSTRAD 

PRIX 1 M OCTETS 

spécim l 699 F TTC 
J' ^ LE JASMIN AM 5 D 



le 2 e lecteur double têtes, double ou quadruble densité, 

indispensable pour votre AMSTRAD 

CPC 464 - 664 - 6128 et PCW 8256/8512 

Ne payez plus vos disquettes 3" 
à 60 F. on trouve des disquettes 
5" 1/4 à moins de 7 F 

Accéder à toute la bibliothèque CP/M éditée sur 5" 1/4 
grâce aux utilitaires disponibles chez « WILD WEST », 

84760 St-Martin de la Brasque. Tél. : 90.77.61.36 

JASMIN AM-5D, le lecteur double têtes Puissant mais Econome 

Plus besoin de retourner la disquette. La sélection de face se fait par inverseur avec indicateur lumineux. LISTE DES POINTS DE VENTE 



Lecteur 5"1/4. JASMIN AM5D: formaté, entièrement compatible AM5D0S, 
CP/M.22 et CPM+, livré avec disquette utilitaire de formattage et de duplication 

de disquette 1 699,00 F TTC 

Lecteur 5" 1/4 JASMIN AM5D+ - 1 M : double têtes, quadruble densité, 720 K for- 
matté, entièrement compatible AMSD0S et CP/M , livré avec disquette utilitaire de duplication, format- 
tage et utilisation en 80 pistes 1799,00 F TTC 

Cable de liaison pour CPC 6128/664 155,00 F TTC 

Adaptateur AD 12 - VDC : pour l'utilisation avec des moniteurs sans sortie 12 V. 60,00 F TTC 
Kit de liaison du JASMIN AM5D+ : avec le PCW 8256/8512. .. 250,00 F TTC 
Jasmin-Booster : adaptateur à rajouter derrière TAM5D ou AM5D+ leur permettant d'être utilisé en maître ou esclave, 

et pour le lecteur I M de se comporter en 500K. Disponible en octobre : Prix indicatif 350,00 F TTC 

Disquettes 5" 1/4, l'unité 7,00 F TTC 

Imprimante spéciale AMSTRAD AM PRINTER : Silencieuse- 50 CPS- Qualité cour- 
rier - 132 colonnes en contractées 1995,00 F TTC 

Cable CENTRONICS pour AMSTRAD 175,00 F TTC 

Les prix en boutique comprennent le port. 



AMSTRAD - CPC 464 - CPC 664 - CPC 6128 et PCW 8256/8512 - AMSD0S sont des rr 
* 500 K et 1 M octets, non formattés 



îs déposées d'AMSTRAD. JASMIN AM-5D 



PRIVILEGIES JASMIN AM5D 5"1/4 

1 4000 CAEN - LOISIR INFORMATIQUE, 39/41 , Rue de l'Oratoire, tél. 31 .85.18.77 

33000 BORDEAUX - L'ONDE MARITIME, 257, Rue Judaïque, tél. 56.24,05,34 

33000 BORDEAUX - ESAT SOFTWARE, 55, Rue Tondu, tél. 56.96.35.23 

33000 BORDEAUX - SON VLDEO 2000, 3,1, tours de l'Yser, tel 56.92.91.78 

33000 RENNES - MICRO C, 3, Bd. da Beaumont, tél. 99.31 .70.41 

37170 CHAMBRAY LES TOURS - Centre commercial du CAT, tél. 47.27, 29.Q0 

511000 REIMS, 2, Av. de Laon, tél. 26.47.44 14 

64000 PAU ■ BASE 4, 1 1 Rue Samonzet, tél. 59.83.78.78 

69000 LYON - FRANCE. DISQUETTES, 255, Av. Berthelot, tél. 7S.01 79.63 

75014 PARIS - VIDEO SHOP, 251, Bd, Raspail, tel, 42.96.93 95 

75001 PARIS - VIDEO SHOP, 50, Rue de Richelieu 

75010 PARIS ■ GENERAL VIDEO, 10, Bd. de Strasbourg, tél. 42.06.50.50 

7501 1 PARIS - VISMO, 84, Bd. Beaumarchais, tel 43.38.60.00 

75019 PARIS ■ DFI Centre de démonstration, 66, Rue d'Angers 

me marque déposée de'T.'R.A.N. sari. CP/M est une marque déposée de Digital Research 
Tous nos prix sont en fonction de nos stocks au I e ' Septembre 1986 



BON DE COMMANDE à T.R.A.N. sari - 53, impasse Blériot 

83130 LA GARDE - Tél. : 94.21.19.68 






Crédit possible Nous téléphone» 



NOH\ÎAl P*ÏH PARCAItn WJ1.1 tVtlRBANtMRI 
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Nom : 



Adresse 



Code postal : Ville 



Tél. obligatoire. 



Date : Signature : 

Port gratuit en France pour achat de plus de 500 F 
supplément contre remboursement 120,00 F 1 



Désignation 



Quantité 



Px unit. TTC 



Mt.TTC 



Ci-joint un chèque total : 



de port en France pour achat de moins de 500 F TTC : 40,00 F 
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FONCEZ AVEC 
L'AMSTRAD PC 1512 ! 



"PROGRAMMES 

DE MATHEMATIQUES 

SUR AMSTRAD" 

(EYROLLES) 

P. Beaufils, M. Lamarche, Y. Muggianu 

Salut, tes matheux ! Eh oui, te premier 
trimestre se termine et vous ne savez 
rien encore sur la transformée de Fourier. 
Alors lâchez le joystick, cet ouvrage est 
pour vous. Des graphiques simples aux 
représentations fractales, vous savez, ce 
relief de montagne qui se dessine sur 
votre écran, en passant par les polyèdres 
"fil de fer", rien de tout cela ne vous sera 
plus étranger. ■ 

Tous les programmes de cet ouvrage 
sont écrits en Basic, la liste des variables 
est dressée, les commentaires ne man- 
quent pas à l'appel et chaque fonction 
est illustrée. 

Fini le papier millimétré, vive le CPC ! Les 
courbes les plus complexes traversent 
votre écran, et si vous possédez une 
imprimante, le plaisir sera plus grand. 
Quand nous vous disions que vous le 
lâcheriez, ce joystick ! 





Le livre de 


l'Amstrad PC 


l nrv.l 

I 1- '■! 


1512 
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"LE LIVRE DU PC 1512" 
(MICRO APPLICATION] 
99 F 

Le PC 1512 n'est pas encore sur le mar- 
ché et déjà les premiers ouvrages vien- 
nent s'aligner sur les étagères des librai- 
res. Un des avantages de ce livre est cer- 
tainement de donner au lecteur tous les 
renseignements que... les revendeurs 
AMSTRAD ne peuvent encore lui donner 
sur le 1512, faute d'avoir la machine ! 
L'ouvrage reste très général, se présen- 
tant comme un vaste tour d'horizon du 
PC 1512 : mise en route, environne- 
ment, structure interne, liaisons, langa- ■ 
ges, périphériques, etc., -logiciels utilisa- 
bles. 

Même si les explications développées 
dans ce livre semblent, en grande partie, 
extraites des manuels d'accompagne- 
ment, elles offrent l'avantage de faire 
une synthèse qui permettra à l'acquéreur 
potentiel, de se rendre compte de ce 
dont il disposera avec le PC 1512. 



"FONCEZ AVEC 
L'AMSTRAD PC 1512" 
(CEDIC/NATHAN) 

C'est AMSTRAD qui ferait bien de 
sortir son 1512 parce que, sous 
peu, il y aura plus de bouquins à son 
sujet que de machines à acheter ! 
Avant de foncer sur votre 1512, 
vous lirez avec intérêt ce livre qui 
effectue un tour d'horizon assez 
complet de la machine. Vous 
apprendrez que le 1512 est "pres- 
que compatible" avec l'IBM. 
Vous ne connaissez pas encore MS- 
DOS ? Et bien, cette lacune sera 
rapidement comblée. DOS+ ne 
vous dit rien ! Faites sa connais- 
sance ! Ces chapitres sont intéres- 
sants et pourront servir de guide à 
l'utilisateur. GEM et Basic 2 ne sont 
pas laissés pour compte. 
Plusieurs pages sont consacrées à 
la communication, avec le détail de 
câblage de la RS 232 et l'utilisation 
par MS-DOS. 

Les derniers chapitres traitent des 
périphériques disponibles et des 
logiciels utilisables. En 200 pages, 
lé lecteur se fera une idée assez pré- 
cise du matériel dont il va disposer. 
s" 
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SONMfiE 



Pour nous aider à vous proposer des articles et des listings tou- 
jours plus intéressants, nous vous invitons à les noter en fonction 
de l'intérêt que vous leur accordez. 
CPC sera ainsi encore plus proche de ses lecteurs ! 
Pour vous encourager à participer à ce sondage mensuel, nous 
tirerons au sort 3 bulletins qui recevront un cadeau surprise. 



CPC n° 
page 


ARTICLE ou PROGRAMME 


Nul 


Moyen 


Bien 


Très bien 


Passion- 
nant 
















8 


Actualité 












10 


Vitrine du logiciel 












14 


Amstrad expo 












18 


Trajectoires des planètes 












22 


Vu en Angleterre 












23 


Initiation à CP/M 












26 


Europa 












38 


Transparence, Tag et inversion vidéo 










42 


Effets 












44 


Crazy V3.0 












56 


Test de produits pour PCW 












59 


Le basic Mallard 
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Essais : Music Tutor et VT-Link 










62 


Courrier des lecteurs 












64 


Triangle de Pascal 












67 


Solitaire 












78 


Calculette 












83 


Les Turbo fractals 












86 


Fendisc 












90 


Ultimate Fight 












102 


Branchez le turbo 













Nom : . 
A'dresse 
Age : 



Je possède un D CPC 464 (drive] □ 664 □ 6128 
□ PCW 8256 □ 8512 D PC 1512 

A retourner à : Editions SORACOM "Sondage Mensuel 
CPC", La Haie de Pan, 35170 Bruz 
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Petites Annonces Petites Annonces 



La place réservée aux pâtîtes annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées,.. De mâme, comme il est peu 
probable qu'il existe des "généreux dona- 
teurs" de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copias de 
logiciels non garantis "d'origine", ainsi que 
toute annonce Incitant au piratage. 
En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 
Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d'un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 

Vends CPC 464 vert + drive DDI + adapt. TV + 
joy + RS 232C + livres + K7 + disques (jeux + 
logiciels) : 4000 F. Tél. 48.81.87.65 |19h). 

Vends AMSTRAD CPC 664 mono 4- imprimante 
DMP 1 + disquettes + livres pour 5000 F (état 
neuf). Tél. 45.57.58.59. 

Vends CPC 6128 + 30 dises + magnéto K7 + 
joystick + 35 revues + 7 livres, valeur 8000 F, 
vendu ; 5000 F. Tél. (1 1 48.77.66.50 après 18h30. 
Facilités. 

Vends AMSTRAD CPC 464, monit. coul. + manuel 
+ nbxjeux : 3200 F, F. RISSER, tél. 45.85.02.03. 

Vends Aquarius I avec lecteur prise Spirituep et 
accessoires : 1 500 F. Stéphan, tel- 48.80.81 .59. 

Vends AMSTRAD CPC 464, couleur + livres + 
nbxjeux :3200 F, exe. état. T1I. (1)39.69.12.21 
le soir, Hugues FAURE, 78 BOUGIVAL. 

Vends CPC 6128 mono sous garantie + 25 dis- 
quettes + 100 logiciels + joystick + magnéto 
(avec cordon) + livre s: 4500 F. Tél. (1) 
69.06.15.22. 



Vends AMSTRAD CPC 464 + 1 1 K7 : 1500 F. 
Adaptateur CPC 464 Péritel : 200 F. Reuves 
Microstrad : 100 F (n° 1 à 7). Tél. 79.75.04.43. 

Vends cause départ étranger fonds de commerce 
micro-informatique centre ville, galerie marchande. 
St. Lô, Manche. Tél. 33.57.23.10. 

Vends ZX81 + RAM 1 6 K + magnéto : 600 F. 6 
livres + 14 n° Ordis : 500 F. Chante, 92350 PLES- 
SIS ROBINSON, tél. 43.50.23.70. 

ATMOS + JASMIN recherche contacts pour 
échanges : jeux de réflexion, originaux, utilitaires. 
R. MOLLES, Rés. des 4 Vents, 49500 SEGRE. 

Vends M05 + magnéto + K7jeux + crayon opti- 
que + adaptateur TV + péritel (jamais servi) : 
2200 F. Tél. 64.93.13.60. 

Vends interf. ECSI + joystick : 300 F. Cherche 
Amplibus + Sedoric + logiciels Jasmin Cale + 
Easytext + Easydisk + Jasmitel. Tél. 
87.02.44.23. 

Cherche contact sur Sedoric pour échange. Tél. 
67.65. 12.33 ou 67.29.55.53. 590 rue de la Caval- 
cade, 34000 MONTPELLIER. 

G. HENRIAT recherche logiciels disk Jasmin 2 et 
K7 Atmos. Vends ou échange mini-cassette Oric. 
Ecrire 5 rue G. MOQUET, 91390 MORSANG. 



Vends CPC 61 28 vert + RS 232 + logiciels + 1 3 
disquettes vierges + boîte de rangement + joy- 
stick + bouquins + 2 jeux + garantie 6 mois. Tel 
43.75.61.08. 

Vends K7 AMSTRAD (Rocky Horror Show, Ghost'n 
goblin, Ludodessin, Knight tyme, etc.) : 460 F les 
13 ou de 35 à 60 F pièce. Tél. 43.74.52.05. 

Echange cause DBase II clavier 664 + DK syst + 
doc + 500 F contre clavier 6128 + DK Syst. + 
doc. Tél. (1) 45.28.58.99. 

Vends AMSTRAD CPC 464 coul. + joystick + 1 00 
jeux et revues 03/86 sous garantie : 3500 F. Tel 
42.60.03.48 après 20 h- 

Cherche revues CPC n° 1, 2, 3, 4. Achète ou pho- 
tocopie contre cadeau prix équivalent. Tel 
42.69.16.80 le soir. 



Vends CPC 464 coul. + drive Dl 1 + joystick + 
nbx programes -t- livres : 4700 F à débattre. Tél. 
43.42.51.06. 

Vends CPC 6128 moniteur coul. garantie fin déc. 
+ 1 disquettes programmes + joystick ; 5000 F. 
Serge au 60.14.20.21 (Palaiseau). 

Cherche explications sur le jeu Bad-Max, si possi- 
ble très détaillées. Guillot David, 51 rue des Prai- 
ries, 14160 DIVE SUR MER. 

Cherche photocopie notice Tasprint + Tascopy en 
français. Frais remboursés. Mlle CANEVET 21 rue 
Cavaillon, 83330 LE BEAUSSET. 

La sécurité micro et RAM. Vends alim. protégée 
chutes, hausses tension (ex.; orage) : 1 98 F. J.M. 
BRUN, 1001 av. Stroch, 84200 CARPENTRAS. 

Vends AMSTRAD CPC 464 mono + drive + péri- 
tel + 80 log. sur cassettes, le tout : 4000 F. Tél. 
23.74.47.62, M. LEQUEUX, 02200 SOISSONS. 

Vends AMSTRAD 464 coul. -I- drive DDI 1 + impr. 
DMP 1 + livres : 7000 F. Pascal BONNEFOI 
01390 MIONNAY, tél. 78.91.83.32. 

Vends CPC 6128 déc. 85 + adapt. coul. + joy- 
stick + magnéto + 30 dise. + /iAppl 5, 7, 9, 10, 
14 + 30 revues. Val. 8000 F, vendu 5000 F faci- 
lités. Tél. 48.77.66.50. 

Vends originaux : 60 F l'un ou 200 F le pack de 3 
+ un copieur gratuit aux 3 premiers appels. Tel 
54,74.39.74. 

Vends AMSTRAD CPC 61 28 coul. (6/86) + DMP 
2000 (8/86) + listing + DBase 2 + manuel + 
joystick + jeux + livres + logiciels. Tél. 
60.05.53.58 après 20 h. 

Vends 6128 coul., joystick, 5" 1/4, livres, nbx uti- 
litaires, nbx jeux, revues : 7000 F à débattre. Tél. 
47.26.93.88 après 19h. 

61 28 cherche et échange logiciels éducatifs de tou- 
tes sortes. P. LENOIR, 25 rue H. de Balzac, 781 80 
MONTIGNY, tél. 30.64.55.91. 

Vends Thomson n° 5 + lect. disquettes + CR. OP 
valeur : 5000 F, vendu : 4500 F. Tél. 69.48 34 1 6 
après 18h. 
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ANNONCEZ-VOUS ! 

les petites annonces et les messages 






Coupon à renvoyer accompagné de 3 timbres à 2,20 F à 
SORACOM, La Haie de Pan, 351 70 BRUZ 



«2 



Vends ZX81 16 K, jeux : 500 F. Spectrum 48 K 
Péritel, jeux, ZX2 + QS2 : 1200 F. Laser 310 
complet 8 couleurs : 1000 F. Philippe au 
60.46.49.86. 

Achète lecteur DD1 complet + imprimante pour 
CPC 464. Paul SERRANO, 24 Bd. Lucien Sampaix, 
69190 ST. FONS. 

Vends cassette AMSTRAD CPC 464 ou Schneider 
(Masterof the lamps) état neuf. Tél. 21.49.67.65 
après 18h. 

Cherche contacts pour tous échanges 464, 61 28, 
CPW. Alain, tél. 39.64.78.49, réponse assurée. 

CPC 464 coul. (1 an) + drive DDI 1 + logiciels + 
crayon opt. + livres : 4500 F. Philippe Blondel, tél. 
39.12.29.54. 



Vends Sharp MZ 820 + Basic + manettes + livres 
+ cassettes ■+ moniteur M/B ; 2350 F. Tél. 
45. 94. 09. 54 après 20h. 



Je fabrique des jeux, je les vends à très bas prix ; 
lOFmax. Me téléphoner au 68.20.51 .74 et, à par- 
tir "du 1" septembre 86, au 68.21.64.15. 

Vends K7 pour CPC 464 : 3D Boxing, 3D Stuntri- 
der, Sorcery, Exocet, Salut l'Artiste, Initiation 
Basic. Frédéric au 74.92.54.51. 

Vends livres sur AMSTRAD (PSt, Sybex, Micro 
Application!, prix cat. -40 %, tbe, liste sur 
demande. Tél. 21.28.68.69 (Lens). 

Vends interface disquette DDI : 1 80 F. Vends col- 
lection CPC 1 à 13 : 130 F tbe. Tél. 21.28.68.69 
(Lens). 

Vends 464 mono + adapt. péritel + mém. 64 K 
+ drive + autorise copie 200 progs. Prix à débat- 
tre sur 3500 F. Tél. 30.92.43.55 Jacky. 

Club AMSTRAD à Angers : Westrad Micro Club. 
Renseignements à Jacky BARRETEA, tél. 
41.47.08.97. 

Vends Sharp MZ 700 64 Ko + magnéto K7 + 10 
jeux (sept. 85) : 1200 F. Tél. 97.41.53.27. 

Vends CPC 464 couleur + DDI + 2 joysticks + 
cassette + disquettes + Bible + livre DDI + Firm- 
ware + revues : 5000 F. Tél. (1) 60.16.87.46. 

Vends cause PC professionnel CPC 61 28 moniteur 
couleur + imprimante OKI Microline 80, état neuf ; 
6800 F. Tél. 84.71.05.52. 

Recherche correspondants pour échanges de logi- 
ciels originaux. Tél. 51.38.62.80 après 20 h. 

Vends sur Metz CPC 464 couleur, état neuf + 
manettes + manuel + nbxjeux + util. + 13 pre- 
miers numéros de CPC, le tout : 4200 F. Tél. 
87.66.20.48'. 

Vends CPC 6128 vert + drive 5 pouces + 1 50 pro- 
grammes : 6500 F ou échange contre PCW 8256. 
F. MARTY, tél. 63.60.89.74. 

Vends DBase II 6128 ou PCW neuf, cause achat 
gestion fichier. Prix : 550 F, envoi CR. Tél. 
31 .34.71 .05, laisser numéro téléphone sur répon- 
deur. 



Vends CPC 464 + moniteur monochrome + logi- 
ciels divers + revues : 2500 F. Tél. 42.87.64.29. 
à Rognac. 

Echange CB Sidebander 6 ou agrandisseur photo 
contre ordinateur Amstrad. Tél. (1) 45.54.84.96 
le soir, Jean-Paul (1) 46.03.07.06 bureau. 

Vends Amstrad CPC 464 mono + adaptateur péri- 



tel MP 1 + logiciels + joystick : 2500 F à débat- 
tre. Tél. 73.68.48.07 (P. DOD). 



Vends imprimante DMP 1 exe. état : 1 500 F. Tél. 
21 .55.21.01 aux heures de bureau. 



Cherche utilitaires en tout genre. Doc Textomat, 
Datamat, Calculmat. Greg MILLET, 222 les Pon- 
tents, 39400 MORBIE, tél. 84.33.10.24. 

Vends AMSTRAD CPC 664 et moniteur + notice : 
4000 F. Région Rennes (35). Tél. 99. 3 1.21. 51- HR. 

J'échange 6 de mes jeux (originaux) + la notice 
du CPC 464 (en anglais) contre la notice du CPC 
464 (en français). Tél. 99.57.23.88. 

Vends 464 peu servi + livres (3) + housses + logi- 
ciels ; 3600 F. DDI (sous garantie) + disquettes : 
1800 F. Logiciels 50 à 150 F. Tél. 30.51.48.28 
(19hr. 

Echange caméra S8 Bauer professionnelle contre 
CPC 61 28 couleur, valeurs, état neuf, équivalen- 
tes. M. LAMIC, tél. 92.54:14.91. 

Vend CPC 61 28 coul. (sous garantie) + imp. Citi- 
zen 120D + nbx logiciels (util. + jeux) + joystick 
+ 14 revues CPC : 7800 F. Tél. 83.41.29.10. 

Vends CPC 464 couleur + nbx livres +- synthé 
vocal + jeux et langage + manette. Le tout : 
3200 F. Tél. 61.41.72.33 après 1Bh30: 

Vends CPC 464, mono + imprimante + 2 joysticks 
+ crayon optique + synthé voca + nbx logiciels 
+ livres : 4000 F. Tél. 48.81.91.90. 

Vends CPC 6 à 1 4 : 1 F pièce et AM 2 à 14 : 1 F 
pièce + 30 F disquettes 3" + jeux originaux. 
David, tél. 20.93.67.24. 



Achète ou échange pour CPC 464 Transmat ou 
autre copieur cassette disquette. A. HOROCOMBO, 
4 imp. Shumann, 30000 NIMES. 

Vends K7 de jeux sur 464 (Harrier Attack + Hun- 
terkiller + Alien Break-in + Flight Parth 7371 : 50 F 
pièce ou 180 F le tout). Tél. 29.39.39.03 après 



Suite vente AMSTRAD, vend programmes (utilitai- 
res et jeux) peu servi, pour CPC et PCW. Conan, 
Ansouis, 84240 LA TOUR D'AIGUËS. 

Vends CPC 664 + livres + logiciels couleur : 
4500 F. Compta pro Logicys + tableur : 5500 F, - 
Tél. Serge 92.58.03.53. 

Vends 61 28 coul. + iect. K7 + imprim. 4- joystick 
+ Tasword + TTXT + 20 disquettes + livres : 
6500 F. M. BENNATO, 91190 GIF, tél. 
60.12.07.25. 

Vends jeux tapés par moi à 5 ou 6 F le jeu (Dollar- 
man, Bombardier, etc.) Vends les 1 1 à 40 F sans 
K7 (en envoyer une) ou 50 F avec. S. CADINOT, 
34 rue de Montigny, 95660 CHAMPAGNE s/OISE. 

Achète CPC 464 coul. ou mono avec lecteur de dis- 
quettes DDI-1 et logiciels à prix raisonnable. Faire 
offre au 89.56.68.44. 

Vends nombreux jeux originaux pour AMSTRAD (K- 
D). Cherche programmes pour synthé Techni- 
Musique. Tél. 51.62.05.15. 

Pour 61 28 vends programmes à divers prix sur dis- 
quettes. Tél. 97.65.90.56 après 17 h. 

Vends CPC 464 coul. + lecteur disquettes DDI +- 
imprimante DMP 1 + joystick + carte 64 K + Zen 
+ 40 jeux + UDos (tbe) : 7000 F. Tél. 



47.88.06.15 (Dept. 92). 

Vends manette de jeu Sony : 100 F. 17 rue des 
Galons, 92190 Meudon, tél. 45.34.60.40. 

Vends AMSTRAD 464 neuf + monit. + adapt. 
périt, -f lect. K7 + 300 soft + livres : 2400 F à 
débattre. Eric CARDON, AZE, 71 260 LUGNY. 

Vends CPC 664 + ext. 64 k (DK) + jeux + utili- 
taires + langages : 3800 F. Tél. 43.29.79.20 Jean- 
Claude DUPLA (sauf samedi et dimanche) avant 
20h. 

Vends CPC 464 couleur avec 25 jeux + utilitaires 
+ un joystick : 3800 F (sous garantie). Tél. 
30.50.89.25. 

Vends CPC 464 mono + DD1 + DMP 2000 4 
MP1 + joystick avec nbx logiciels, jeux et utilitai- 
res : 5500 F. J. DUGAST, 91 MORSANG, tél. (1 ) 
60.15.66.40. 

Vends CPC 6 1 28 mono + joystick -I- livres + nbx 
programmes (jeux et utilitaires), le tout : 4000 F. 
Ch. BAILLY, tél. 47.88.30.87 Courbevoie. 

Echange clavier 464 + logiciels contre clavier 664 
ou 6128. Thierry MATHIEU, Ecluse 62, 51340 
PARGNY SUR SAULX. 

Vends CPC 6128 monochrome s/garantie : 
4200 F. Donne avec câble magnéto + 20 disquet- 
tes pleines + 30 revues. Tél. 78.52.23.90. 

Vends AMSTRAD CPC 464 + moniteur couleur et 
35 logiciels. Le tout : 2900 F. Tél. 43.94,07.61 le 



Vends Multiplan 61 28/PCW (peu utilisé) : 250 F + 
port. M.CLIVET, 1 rue Courvoisier, 25110 BAUME. 

Vends AMSTRAD 464 coul. neuf sous garantie + 
joy + table + 200 jeux + livres. Pas cher. Pascal 
TORRES, tél. 67.29.41 .46 Mauguio (cause achat). 

Vends CPC 464 vert + drive DDI 1 + joystick + 
logiciels + doc. : 3990 F, A. DENIZE, 6 ch, de la 
Gravière, 91610 Ballancourt, tél. (1) 64.93.34.74. 

AMSTRAD Disc cherche contacts pour échanges 
divers. 75 rue des Eglises, 67160 STEINSELTZ, 

Vends originaux disquettes jeux et utilitaires ou 
échange contre utilitaires originaux. Demander 
Thierry au 56.40.94.96. 



r CPC 6128 cherche contacts, région 
Châteauroux. Hubert, tél. 54.34.48.03. 

PCW 61 28 vend originaux DBase, Wordstar, Gêné 
Appl. DBase. Patrick SOUCHE, 3 rue Québec, 
44000 NANTES, tél. 40.40.86.38 après 22h. 

CPC 464 et 6128 recherche logiciels nouveaux. 
Tél. 64.00.50.65 (demander Stéphane après 1 8h) 

Vends ou échange Meurtre sur l'Atlantique, dos- 
sier complet + dise. Faire offre à M. LE REST, 59 
rue Hoche, 78800 HOUILLES. 

Urgent, échange K7 pour CPC 464 : Métro 201 8 
+ Ghost'n Goblins contre Billy la Banlieue. Tél. 
34.14.74.98 (demander Stéphane). 

Vends 23 logiciels de jeux originaux en K7 : 
1000 F. M. BIDEAU au 37.42.00.45. 

Vends 464 couleur + logiciel + livre : 3700 F à 
débattre. Seikosha GP 100 : 1500 F. Tél. 
23.68.13.10. 

Vends imprimante Ericsson Facit 4509 standard 
IBM Epson série parallèle Centronics, comp. AMS- 
TRAD : 2500 F. Tél. 45.83.09.1 1, demander Gior- 
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Avant de passer commande, 
prière de bien lire ce qui suit : 

— les abonnements ne sont pas 
rétroactifs/ 

— il n'y a pas de cassette pour le 
Hors-Série n° 1 et le n° 2, 

— ne pas oublier le port lorsqu'il 
est indiqué, 

— le délai de livraison est d'une 
dizaine de jours, 

— tous les renseignements doi- 
vent se faire par écrit. 



bonde . 
commande 



ABONNEMENT 



Franco de port 



CPC Revue des Utilisateurs d'Amstrad/Schneider 
Attention : votre abonnement débutera avec le 
numéro suivant le mois d'envoi de votre chèque. 

□ Abonnement 1 an à 1 1 numéros 180 F 

□ Abonnement 6 numéros 104 F 

D Abonnement d'essai 55 F 

□ Supplément pour tarif avion 120 F 

Note : cochez la case abonnement dans le bulletin de commande 



CASSETTES 



Franco de port 



1 cassette représente 1 numéro 

□ abonné 45 F 
D non abonné 55 F 
Q abonnement cassettes (1 1 n°} 450 F 
Je commande les cassettes n° 



DISQUETTES 



Franco de port 
1 disquette contient deux numéros 
consécutifs de CPC 

D abonné 

D non abonné 

D abonnement disquettes (6) 

Je commande les disquettes n° 



110 F 
140 F 
600 F 



RELIURE CPC + 



port 10 % 



Pour conserver vos revues intactes. 

P abonné 58 F 

O non abonné 74 F 

TOTAL 



Nom 
Adresse . . . 
Code Postal 
ABONNEMENT 



REPORT 

ANCIENS NUMÉROS ♦,.„,.* 

U 6 18 F 

D 8, 9, 10, 11, 12, 13, 14, 15,1619 F 
U 7 25 F 

J Hors Série n° 1 avec cassette 42 F 
U Hors Série n° 2 sans cassette 6 F 



Entourez le (ou tes) numéro(s) commandéts). 



port 10 % 



NOUVEAUTES 

D A l'écoute des 
radiotélétypes 

J.L. FIS 
D Les imprimantes 

Michel ARCHAMBAULT 
D 1 exemplaire AMSTAR n° 



115 F 

95 F 
9 F 



LIVRES ♦ 



port 10% 



D Mieux programmer sur AMSTRAD 

Michel ARCHAMBAULT 85 F 

G Communiquez avec AMSTRAD 
D. BONOMO - £ DUTERTRE 90 F 

D Jouez avec AMSTRAD 

Kerloch 48 F 

D Programmes utilitaires pour AMSTRAD 
Michel ARCHAMBAULT 85 F 

D L'Univers des PCW 

Patrick LEON 119 F 

D Cassette 

Communiquez avec AMSTRAD 190 F 
□ Disquette 

Communiquez avec AMSTRAD 250 F 

PORT : 10 % TOTAL GENERAL 



oui [J non [J 



Prénom 

Ville 
Signature 



Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez lelsl bulletin fs) ou une photocopie à 
Editions SORACOM La Haie de Pan - 35170 BRUZ. 



"AMSRR 






des W* 



— Une revue tout en cou- 
leurs pour seulement 
8,50 F. 

— Plein de bancs d'essais 
super , avec des photos 
d'écran et des conseils 
pour jouer. 



/MsflSÎ 



fi*»* 




sss^* 



— En avant-première, 
toutes les nouveautés 
sur AMSTRAD. 

— Des programmes et 
des articles d'initia- 
tion. 

— Chaque mois dans 
les kiosques 



